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ABSTRACT 


This four- volume final report is concerned with Phase II of 
the DOE/JPL project “RF Model of the Distribution System As a 
Communication Channel." An earlier Phase I effort was concerned with 
the design, implementation, and verification of a computerized nwdel 
for predicting the steady-state sinusoidal response of radial (tree) 
configured distribution feeders. That work demonstrated the feasi- 
bility and validity based on verification measurements made on a 
limited size portion of an actual live feeder. The Phase II effort 
is concerned with 1) extending the verification based on a greater 
variety of situations and network size, 2) extending the model capa- 
bilities for reverse direction propagation, 3) investigating para- 
meter sensitivities, 4) improving transformer models, and 5) investi- 
gating procedures/fixes for ameliorating propagation "trouble spots." 


PREFACE 


THIS VOLUME CONTAINS LISTINGS OF SOURCE 
PROGRAMS AND SOME ILLUSTRATIVE EXAMPLES OF VARIOUS 
ASCII DATA BASE FILES. THE LISTINGS ARE GROUPED 
INTO THE FOLLOWING CATEGORIES: 

MAIN PROGRAMS 
SUBROUTINE programs 

ILLUSTRATIVE ASCII DATA BASE files 
WITHIN EACH CATEGORY^ FILES ARE LISTED ALPHABETICALLY. 
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0 1'^ ★ 
n?r> * 

★ 

^140 ★ 
050 * 
060 * 

0 70 * 
0>?O ★ 
006 ♦ 

1 on * 
1 10 * 

I 20 * 

I 30 * 
1 40 * 
! 50 * 
I 60 ★ 
1 70 

1 80 

1 

200 
? in 
220 

2 30 
2 40 
250 
260 
2 70 
280 
2 60 
300 
310 
320 
330 
340 
350 
360 
370 
380 
29 ^ 
400 
410 
420 
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440 
450 
460 
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480 * 
400 


THIS P600PA'' GS'lEPATrS AFPPYUJ TYPE FORMATTED FILES 
TMlOpcDTo PSF^xG loads iNVOl.vriO THP FE du*<5c TP aMSF0D',( f^S 
AN'O T’lpf^F phase Ohcv nf:T^7A TP AMSFfIRMFPS WH(^SE ADWITTA'ICE 
"ATPIY IS TA'O 8 TWO. mote that THE USER WII.L HAVE TO 
RENAME OJFILE : - PROPER AFPPYLIJ NAME 

NOTP that as : PROGRAM NOW STANDS IT DOES NOT TREAT NFC0-»2 

AS A 2X2 matrix, RATHER AS A 3X3 ASSOCIATED 8Y AN OPEN OELTA 
IMPLIED 8Y NEC0=2 

THIS PRf)GRAM IS To BE CONSIDEPED TEMPORARY AND NOT 


PflLISHED. 

NOTE riAT THE ADMITTANCE MATRICES ARE TESTED 
FOR PHVSrCAl. REALIZABILITY {POSITIVE REAL TEST) 

WITHi 

ISTAT»N20 2X2 DFTERMINET NEGATIVE 
ISTATa3NN 3X3 D<^TFRMINET NEGATIVE 
RATI0=(2*BR+4R)/AR 

10 FORMAT(V) 

M F0RMAT(I4,3X,3( IPE9.?,3X)) 

!2 F0RMAT(I4,2T5.4Y, /o^, 15 , 4Y, , 4X , '0^ ) 

I 3 FORMAT{^TPRL,NECn,ISTAT, AP,BR.RATlO=^,I4, 13.15, IP3EI0.2) 
GHAPACTEP INFILE*0, r)UFILE*9 
DAT* Z/o./ 

''MJ, NASTRK 

SO PRINT, CENTER "INFILEl" AND “OUFn.El''-' 

READ, INFILE, OUFILE 
CAI.L 0PFNF(2I ,INFI1.E) 
f^ALL 0PENF(22,0UFILF) 

WPITB(22, 11)1 oon 
WPTTE(22, ) ! ) 1010 
LINF=)020 


I no CONTINUE 
rSTAT»0 

RFAD(2I , lO.END- OOO) IPRL, NECO, AR, A I , BR, B I 

WRrTE(22. 12)LINE, IPRL, 3, NECO 

LINE»LINE+tO 

WRITEC22, II )LINE 

LINE-LINE+IO 

WRITF(22, II )LINE, AR 

LINE»LINE-HO 

WRITE(22. II )LINE, AI 

LINE-LINE+IO 

WRITEC22, II )LINE 

LINE-LINE* 10 

IF( AR.LT.7)ISTAT-I 

I F ( ( AR*AR-BR*BR ) . LT. Z ) I STAT- I STAT+20 
IF(NECO.E0.3)GOTO2OO 


This program is provided as 
a convenience for generating 
AFPRYijk files when the 3X3 
matrix admittance is balanced. 
See file Rl which has been 
transferred by this program 
into file R2. 


IFCNFC0.NE.2)ST0P 
1 {XJIC FOR NEC{)-2 
WRITEC22. 1 1 )L INE,BR,AR 
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a =»pvoE‘j 




Lrfr=I.INE+t 0 

61 


VPIT’E(PP. I ! )L!‘'E,'^I,AI 

52'' 


r.r;::--? r\~*l p 

6 


AP!T"^(PP, 1 ; )LI'JE 



!.INE*MNE+I0 

55 n 


WRITE (22, 1 ! )LINE.7,Z,Z 

560 


LIVE*1,IN-E-H 0 

570 


WRITE(22, 1 1 )LINE,Z,Z,Z 

5B0 


GOT 0300 

5 90 

POO 

CONTINUE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


6nn * I OCrC F09 NFCn»3 

610 WRTTF(??, 1 1 >LIMF,‘^R,AR 

620 !.rJF=UNE+IO 

610 WRITF(22, n )LT^IF,'1I,AI 

640 LIMF=[.INF+n 

650 WRrTH(22, 11 )t,INE 

660 r.IUF=I.lNP+lO 

670 WPITE(22, n )LIME.RR,RR,AR 

6R0 LIMEsLINR+IO 

600 WRITR{22, I I )UNF,RI,RT.AI 

700 IF( ( AR**1+RR*RR*(2.*RR-3.*AR) ).LT.7.)rSTAT=IST4T+300 

710 3 00 L!MF*LINE+I0 

720 WPITE(22. M )LINE 

730 LP^E=LIME+I0 

740 IF( rST*T.OT.O)PRIST 1 .3, IPRl. .NECO, ISTAT, AR,RR, (2. *RR + AR ) /AR 

750 GOTOJOO 

760 900 PRINT, 'EOF REACHED ON '.INFILE 

770 BACKSPACE 22 

7":0 ENDFILE 22 

7->6 PRINT, 'OUTPUT FILE IS CALLED ',OUFILE 

BOO PRINT, 'TYPE CR TO CONTINUE'’ 

BIO RHAD, I 

B20 CALL DETACH(21 ,ISTAT, ) 

B30 CALL DETACM(2?, ISTAT, ) 

B40 IF( I.EQ.O)GOT050 

B5^ PRINT, 'RATIO* (2*RR+AR)/AR' 

B60 STOP 

B70 END 
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010 ♦ TWI5 PRCGPA.V C0';P'JT=^S THE TCTAl MJ-'CEP OF EACH TYPE OF 

020 * OlST.r I- 3 'jTIjr TPANSFCP' FOU'ID I'l A hET’TPK PILE 
030 * (IN THIS CASE I :.5b ) . AlOS IT CCr-PUTES THE TOTAL 
0<f0 * COI^OEC'I'ED DT uCAD (FOn .TTY EQUAL TO <VA) AND TH£ 

050 ♦ total CUYf-ULATiVE LENGTH OF THE FEEDER IN HETER5»10 
060 10 F00CAT(\/) 

070 CALL 0PENF(li,»Df-WKlN56;»> 

080 READ( 1 1 » 10) N1 »N2 

090 200 READ ( 11 , If »EfiDs999 ) N 1 ,r'2 »N3 «N4 ,r'5 -.f;6«’“7 ,N8 .NTTY 

100 IF(NTTY,EQ. 05) 10^=10541 

110 IF(NTTY.EO.IO) I lOsI 10*1 

120 IF(NTTY.E0. IS) I 15=1 15 + 1 

130 IF(NTTY.EQ, 25) 125=12541 

UO IF(nTTY*EO,AO) I^OsIaO*! 

150 IFCNT.TY.EO. 50) 150=15041 

160 NT0T = '.'T0T4NTTY 

170 NLEN='iLEN4M7 

180 G0T0200 

190 999 CONTINUE 

200 PRIHT«»I05=* ,105 

210 PRINT, ‘IlOs* ,110 

220 PRINT, '1155' ,115 

230 PRINT,' I25 = * ,125 

2aO PRINT,' IA0=* ,U0 

250 PRINT, *150=' ,150 

260 PRINT, 'NTOTs* ,MTOT 

270 PRINT, »NLEN=* ,NLEN 

280 STOP 

290 END 
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OF POOR QUAUTY 


FEE0PUS5 04/10/81 3:05 PM 

ft***************************************** *«*«*****«*****«*««»*«** **•*#* 


0010 *# 

0020*#L 


0030 

* 

0040 

* 

0050 

* 

0060 

* 

0070 

* 

0080 

* 

0090 

* 

0100 

* 

0110 

* 

0120 

* 

0130 

ft 

0140 

« 

0150 

* 

0151 

• 

0152 

* 

0153 

* 

0154 

• 

0155 

• 

0156 

* 

0157 

* 

0158 

* 

0159 

* 

0160 

ft 

0170 

ft 

0180 

ft 

0190 

ft 

0200 

ft 

0210 

ft 

0220 

ft 

0230 

ft 

0240 

ft 

0250 

ft 

0260 

ft 

0270 

ft 

0280 

ft 

0290 

ft 

0500 

ft 

0310 

ft 

0320 

ft 

0330 

ft 

0340 

ft 

0350 

ft 

0360 

ft 

0370 

ft 

0380 

ft 

0390 

ft 

0400 

ft 


RUNH *sFEE0PUH5(ULIB»COREs30K)LIBRARY4; 

IBRARY/IM5L»R5UBRARY/0LDTSLIB«R 

THIS VERSION DIFFERS FROM FEEDPUSl IN THAT: 

UUSER IS GIVEN optional CHOICE FOR SELECTING lASM CODES 

2) ElIMINATES FIRST OF DATA RECORD PAIR 

3) USES A ORIECtORY VECTOR. IDIR TO STORE RECORD 

NUMBER VS LTYP TO CONSERVE CORE AND SPEED GENERATION, 

SEE END OF LISTING FOR DESCRIPTION OF STRATEGY 

4) UPPER and lower LIMIT TESTING IS MADE ON EACH ELEMENT 
OF THE 2 AND Y MATRICES, NOTE THIS MODIFICATION 
ASSUMES THAT LTYP, GT, 900 IMPLIES UG CABLE 

5) INCLUDES READING FROM ZYDAFILES FREQUENCY FREOK IN KHERTZ 
AND WRITES iT INTO DPUFILE HEADER RECORDS 

6) INCLUDES ABSOLUTE AND RELATIVE MODAL PROPAGATION 
SPEED CALCULATION IN OPTION 4 

7) PR0VIDES L5ER WITH OPTION ON MAXIMUM FILE SIZE 

8) eliminates many unused variables in dpulijkn files 

9) USES LREC (PEC',0 SIZE) TO AUTOMATICALLY SELECT 
appropriate NUH:^ER OF RECORDS TO CONTAIN THE 
DIRECTORY ARRAY IDIR, NRCO IS THE LAST RECORD 
USED FOR THIS PURPOSE, 

10) EXPECTS system TO GROW AS NECESSARY, RANDOM 
BINARY file NOT TO EXCEED MAXIMUM USER SPECIFIED 
LIMIT, 

NOTE THAT ANY SUBSEQUENT REVISIONS SHOULD NOT RESEQUENCE 
SO THAT compare OPERATIONS MAY BE USED TO DETERMINE DIFFERENCE 
THIS MAIN PROGRAM CONSTRUCTS. MAINTAINS AND IF DESIRED LISTS 
THE DATABASE PER UNIT FILE DPULIJKN WHERE 
LIsiFREa FREQUENCY CODE 
jxITMP=TEMPERAiURE CODE 
KaIRHOaEARTH CONDUCTIVITY CODE 
NalASMaASSUMPTlON CODE 
NOTE ON DPULIJKN DATA RECORD FORMAT 

LTYP EVEN DENOTES FEEDER*SECONDARY CONDUCTORS 
LTYP ODD DENOTES FEEDER ONLY. 

IT WILL BE REQUIRED THAT NUMS*0«NEUS FOR LTYP ODD. 

POLICY ON REVISIONS: 

ANY DATA RECORD WITH INVALID DATA WILL BE DENOTED BY LTYP.LT.O 
ANY DATA ON INPUT FILE WHICH IS TOO REPLACE GIVEN LTYP DATA 
MUST HAVE 

1) internal IREVai FROM TERMINAL 

2) INPUT IRVIal.OR.OPU LTYP.LE.O 
NOTE that a OPU LTYPaO INDICATES NULL DATA 

POLICY ON IFRE. ITMP, IRhO SPECIFICATION 

SOMEWHAT arbitrarily WILL ASSUME THAT IFRE. ITMP. IRHO 
WILL always be SPECIFIED BY THE USER, THE IMPLICATION 
IS THAT I0PTa2.3 ONLY THE PERTINET (CORRESPONDING 
TO IFRE. ITMP, IRHO) DATA WILL BE ACCEPTED FROM THE 
INPUT file 


1-4 



FEEDPUS5 

0410 * 
0420 * 
0430 * 
0440 * 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0821 
0822 
0823 
0830 
0840 
0850 
0860 
0870 
0880 
0890 


ORIGINAL 13 
OF POOR Q^m^ITY 

NOTE that this PROGRAM USES NON SYSTEM FORMAT FOR RANDOM 
BINARY files BECAUSE THE CROC 605 SYSTEM HAS SOFTWARE 
ERROR WHICH FOR SOME UNKNOWN REASON WILL NOT ALLOW 

standard system format 
10 FORMAT(V) 
u format ( I4«10I5) 

12 format (‘CHECK ON DEGREE OF ORTHOGONALITY OF S‘) 

13 F0RMAT(‘LTYPa'»2I4) 

14 F0RMAT(A3«I2»3I1*A1) 

15 format (‘IFRE» I TMPURHOs* *14,215) 

16 format (‘TYPE CR IF 0K») 

18 FORMATCRELE DPU*,I2,3I1,AI) 

19 FORMATCLTYP INVALIDATEOa‘,215) 

20 F0RMAT('LTYP*»,I3«‘ IERR*‘*I4,‘ 2 ( • ♦ II * ‘ ♦ • * 1 1 * • ) * • * 1P2E16,8) 

21 F0RMAT('LTYP«‘ ,I3*‘ lERRa‘,l4,‘ Y ( • , 1 1 , • , • , 1 1 , * ) s • , I P2E 16 • 8 ) 

22 F0RMAT(A8*AI) 

23 format (‘OUTPUT FILENAME** ,A9) 

24 FORMAT (‘INPUT FILENAME* • *A9) 

25 F0RMAT(‘IFRE*‘ ♦I2*5X«‘lTMP*‘,Il,5X**IRH0a‘,Il,5X*‘IA5M*',Il, 

6 5X,‘FRE0*‘ ,IPE13.7) 

26 format (‘IASM*‘* 12) 

27 FORMAT(AI) 

28 format (‘HEADER RECORD OF ^ILE *,A8/‘ IFRE ITMP IRHO lASM », 

6 ‘NRCD LREC NTYP NOIM IREC DATE TIME FREQUENCY*) 

29 format ( 1 4, 4 1 5, 16, I 5, 14, I 5* A 10* F7, 2* 1PE16, 7) 

31 F0RMAT(‘LTYP*‘ *15*5X*‘NEC0*‘*I 1*5X,*NT0T*‘,I1,5X,*NUMF*' *11* 

6 5X*‘NUMSs‘*Il*5X*‘NEUS*'*Il*5X*‘NEUFa‘,Il) 

32 format (‘SUM OF EIGENVECTOR CURRENT COMPONENTS') 

33 FORMATCCOULO NOT DETACH FILE‘*A10*‘ WITH STATUS *‘*I3) 

34 FORMAT (‘CHECK ON DEGREE OF ORTHOGANALITY OF O') 

35 format (‘ASSUMPTION CODES, ‘512, ‘ WILL BE PROCESSED') 

36 FORMAT (‘TYPE TOTAL NUMBER OF COOES FOLLOWED BY SINGLE DIGITS') 

37 FORMAT (‘NUMBER OF RECORDS* ', 1 4 ,/• DIRECTORY CONTENTS') 

3a F0RMAT(10(2I4,2X) ) 

39 format (A 6* ‘ *‘, 1PE8. 1,A8 * ‘s ' ,E8.1) 

40 FORMATCLIMIT filename** *A9) 

41 F0RMAT(‘2YDA‘, 12*211, '(') 

42 FORMATCLTYP 2RIIMI 2RIIMA ZlIIMI ZIIIMA', 

6 ‘ ZRIJMI ZRIJMA ZIIJMI ZIIJMA', 

6 ‘ YIIIMI YIIIMA YIIJMI YIIJMA') 

43 F0RMAT(I4,1P12E9,1) 

44 FORMAT (‘FREQUENCY IN HtRTZ*‘ * IPE16,7) 

45 format CDPU MAXIMUM SIZE*‘,I4,* BLOCKS CORRESPONDING TO », 

6 'APPROXIMATELY', 15, • LTYPES*) 

46 FORMATCIF okay type CR* ELSE TYPE DESIRED MAXIMUM SIZE IN BLOCKS*) 
COMPLEX Z(9*9) *Z0(9*9) ,S(9*9) *SI (9*9) ,DL(9) 

COMPLEX Y(9,9) ,Y0(9,9) 

complex SA1(9*9) ,SA2(9,9) ,SA3(9,9) ,SA4(9,9) *SA5(9*9) *SA6(9,9) 
COMPLEX ZER0*SV(9) ,SUM,ZE*YE 
DIMENSION 1DIR(900) *ITEMP(900) 

DIMENSION WKAREA(200) *ICBUF(5) *IFILEF(5) *IASMV(5) 
character DPU*3 , FNAMS*9 * INF I LE*9 , STR I NG» 1 4 ,NAME*6 *L I F I LE‘*9 
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ORIGINAL PAGE !3 
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I 


FEEDPUS5 

0900 character 0UFIlE*R«NDATE*B,CV*9,FEEDPU*6»FNAME»8 

0910 DATA IASM/A/«IA5MV/A»0»0«0»0/»LUINP/^1/ 

0920 data IFRE/ 10/ t I»h 0/A/ , IT'^P/fe/ » lREC/ 210/ tNRPT/ 1/ 4 I AS'^AX/ 1 / 

0930 DATA DPU/*DPU'/ 

OR-tC data LEXl/9999/»IHUN/100/4lTHO/1000/4NDlM/9/»MDIH/900/ 

0950 DATA I TETE/ 10 1 0/ 4 NW/ 200/ 4 1 ONT/ 120/ 

0960 DATA I CBUF / 2 4 0 4 1 00 4 1 4 O/ 4 1 F I LEF/5»0 / 4 NAME/ • FEEDPU • / 

0970 DA'A IOUT/C/ 4 I INP/0/40UFILE/*OUTFILE1; •/ 

0980 data lIFIuE/'FEEOLIMT; •/ 

0990 data 2ERO/(0.40.) / 4 RZERO/O./ 4 XBIG/I.E 2 O/ 

1000 DATA Z0IIRL/3.E-3/420I IRH/2.E-2/ 

lOlO data ZOIIIL/A.E- 2 / 4 ZOIIIH/ 2 .E-I/ 

1020 data Z0IJRL/A,E-3/4Z0IJRH/7,E-3/ 

1030 data ZOIJIL/I.E- 2 / 4 ZOUIH/ 8 .E- 2 / 

lOAO data ZUI IRL/A.E- 3 / 4 ZUI IRH/8.E-3/ 

1050 data ZUIIIL/A.E-2/»ZUIIIH/7,E-2/ 

1060 data ZUIJRL/ 4 .E- 3 / 4 ZUIJRH/ 5 .E- 3 / 

1070 data 2UIJIL/A,E-2/4ZUIJIH/6.E-2/ 

1080 data YOI I IL/ 2 .E- 7 / 4 YOI I IH/I.E-6/ 

1090 DATA Y0IJIL/-7,E-7/4Y0IJIH/-6.E-9/ 

1100 data TPI/6.2831851/4CLIGHT/2.997925E8/ 

1110 * DEFINE ASF 

1120 IFCF(I)aIASMV(I)^lO 

1150 call FPARAMU tIONT) 

1160 call DATIM(N0ATE4TIM6) 

1180 ICBUF(2) *l2*LREC/320 

1200 100 PRINT I 54 IFRE 4 ITMP 4 IRHO 

1210 PRINT, 'TYPE 1 IF INCORRECT,-! TO EXIT OR CR IF OK' 

1220 read, I 

1230 IF(I)7000,110,102 

12A0 102 PRINT 15 

1250 READ,IFRE,ITMP,IRH0 

1260 GOTOlOO 

1270 110 CONTINUE 

1280 call NASTRK 

1290 ENC0DE(INFIlE,A 1) IFRE^lOOO, ITMP, IRHO 

1300 call YA5TRK 

1310 IBUlsO 

1320 ILPal 

1330 * USER TYPES 0 IE CR TO ESCAPE 

1340 * 1 TO INITIATE LTYP RECORD INVALIDATION 

1350 * 2 TO BUILD/REBUILD FROM SCRATCH 

1360 * 3 ADD TO EXISTING FILES INCLUDING REVISION 

1370 * 4 TO PRINT DOCUMENTATION 

1380 PRINT,* TYPE O-ESCAPE , 1-CANCEL ,2-BU I LD/REBU I LD , 3-ADD/REV I SE ,4-PR I NT • 

1390 READ,IOPT 

UOO IF( I0PT,NE.2)G0T0190 

1410 PRINT, 'TYPE 1 FOR LIMIT CHECKING OTHERWISE A CR • 

1420 READ,ILIM1T 

1430 IF( IlIMIT.EO,0)GOT0190 

1440 PRINT, ‘TYPE 1 TO SPECIFY OUTPUT FILE TO CONTAIN LIMIT CHECK RESULTS 

1450 PRINT, 'OTHERWISE A CR FOR TERMINAL OUTPUT* 


1-6 



FEEDPUS5 


ORIGINAL PAGE IS 
OF POOR QUALITY 


l<»60 R£A0»I 

1470 IP { I .E3.n)G0T0l rO 

1480 120 ^0«LIFILE 

1490 PRIM 16 

1500 PEA0»I 

1510 IF ( I,EO.O)GOT0130 

1520 PRINT 40 

1530 READfLiFiLE 

15^0 G0T0120 

1550 130 LUL1“^T*33 

1560 call OPENF (LULIMT»LlFlLEf ISTAT) 

1570 IF(ISTAT.NE,0)CALI ERRSTT(NAF'E*130.LULIMT«ISTAT»0) 

1580 PRINT. 'OPENED FILE '.LIFILE 

1590 GOT0180 

1600 170 LULIMT*C6 

1610 180 CONTINUE 

U20 WRITE(LULIMT.39) 'ZOI IRL* .201 IRL. »Z0I iRH' ,Z0I IRH 

1630 WRITE (LULIMT. 39) *201 1 IL* .ZCI I IL. *201 1 IH» .ZOI I IH 

1640 WRITE (LULIMT. 39) 'ZOI JRL * .20 1 JftL . * ZO I JRH * .ZOI JRH 

1650 WRITE(LULIMT.39) 'ZOIJIL* .ZOIJIL.'ZOIJIH'.ZOIJIH 

1660 WRITE(LULIMT.39) 'ZUIIRL' .ZUIIRL.'ZUIIRH'.ZUIIRH 

1670 WRITE (LULIMT. 39) ' ZUl I IL * .ZU 1 1 I L . »2U 1 1 1 H • .ZUI I IH 

1680 WRITE (LULIMT. 39) * ZUI JRL* «ZU I JRL. 'ZUI JRH' .ZUI JRH 

1690 WRITE(LULIMT.39) 'ZUIJIL* .ZUIJIL.'ZUIJIH'.ZUIJIH 

1700 WRITE (LULIMT. 39) ' YOU IL ' . YO 1 1 I L . * YO I I IH ' . YOI I IH 

1710 WRITE (LULIMT. 39) *Y01 JIL* .YOI JIL. *YOI JIH* .YOI JIH 

1720 190 CONTINUE 

1730 IF(IOPT.LT,0,OR.IOPT.GT*4)60T0110 

1740 IF(IOPT.£0.0)GOTOIOO 

1750 1F(IOPT.EO,4)GOT0202 

1760 PRINT. 'TYPE 1 FOR DIAGNOSTICS' 

1770 READ.IOIA 

1780 IF(IDIA,NE.1)GOT0210 

1790 202 PRINT. 'TYPE 1 FOR TERMINAL OUTPUT' 

1800 REAO.l 

1810 IF(I,nE.O)GOT0210 

1815 LU0UT«32 

1820 * read name for OUTPUT FILE. 

1830 203 PRINT ZJ.OUFILE 

1840 PRINT U 

1850 REAO.l 

I860 irn,E0*0)G0T0205 

1870 • detach OUTPUT FILE IF OPEN AND NEW FILENAME BEING OPENED 

1880 IF(IOUT.EO.0)G0T0204 

1890 call OETaCHCLUOUT.ISTAT.) 

1900 IF(ISTAT.NE.0)PRINT 33.0UFILE.ISTAT 

1905 IOUT*0 

1910 204 CONTINUE 

1920 PRINT 23 

1930 READ.FNAME 

1940 ENCOOE(OUFIlE.22)FNAME.' ;' 

I960 GOT0203 
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1970 

205 

CONTINUE 

1980 


IF (I0uT,EQ.l)GnT022n 

19«0 


call CPENF (LU:uT,OliFlLE« ISTAT) 

2000 


IF ( 1 jTAT.NE.Ol call EPRSTTtNAME»205»LU0UT,I5TAT.!0UT) 

2010 


P"<INT, 'OPENED OUTPUT F I LE* * «CUF I LE 

2020 


lOUTsl 

2030 


G0T0220 

20<»0 

210 

LU0UTS6 

2050 

220 

CONTINUE 

2060 


IF{IINP,EO.O)GOT0221 

2070 


call DFTACH(LUINPiISTAT*) 

2000 


IF( ISTAT.NE.0)PRINT 33, INFILE» IS^’AT 

2090 


I INPso 

2100 

tt 

define INPUT FILE FOR IOPT=2,3 

2110 

221 

IF(IOPT.EO,1.0R.IOPT*E0.4>GOT0240 

2120 

222 

PRINT 24.JNFILE 

2130 


PRINT 16 

21<»0 


REA0,I 

2150 


IF(I.EQ.0»G0T0225 

2160 


PRINT 24 

2170 


REAO,FNAME 

2180 


ENC0DE(INFIlE,22)FNAME,» ;• 

2190 


GOT0222 

2200 

225 

CONTINUE 

2210 


call 0PENF(LUINP,INFILE,I5TAT»1 ,0,1) 

2220 


IF(ISTAT,NE,0)CALL ERRSTT (NAME, 225, LUINP, ISTAT,0) 

2230 


IlNPsl 

22<»0 

240 

CONTINUE 

2250 


DEFINE ASSUMTION COOES FOR IOPT=l»2,3 

2260 


IF(IOPT.EO,4)GOT0250 

2270 


PRINT 35»(IASMV(I) ,I = 1,IASMAX) 

2280 


PRINT 16 

2290 


READ, I 

2300 


IF(I,EQ.0)G0T0250 

2310 


print 36 

2320 


READ, IA5MA'', ( IASMV( I ) , 1*1 , lASMAX) 

2330 


G0T0240 

2340 

* 

NOW THAT infill AND OUFILE HAVE BEEN SPECIFIED 

2350 

* 

BRANCH TO APPROPRIATE OPERATION 

2360 

250 

GOTO ( 1000,2000,3000,4000) ,IOPT 

2370 

1000 

CONTINUE 

2380 

ft 

LOGIC FOR INVALIOATING/CANCELLING LTYP DATA RECORD PAIRS 

2390 

ft 

ADOPT POLICY TO MODIFY ALL POSSIBLE FILES, NOT THOSE 

2400 

ft 

WHICH ARE SPECIFIED AT THE MOMENT VIA lASMV(I) 

2410 

ft 

SET flag for logic OF COMPARING NTYP 

2420 


INTYPal 

2430 


DO 1076 IsUIASMAX 

2440 


IFC*l4lO 

2450 

ft 

IF ALREADY OPEN BYPASS CALL OPENF 

2460 


iFdFiLEFd) ,GT.0)G0T01076 

2470 

ft 

OPEN BUT DO NOT CREATE 

2480 


call nastrk 
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FifDPuss 

.*,>10 tNCJOt (F\AVS. l-i » IFRE* 1000, 1 T •>'P . I PhO , I , M • 

."Si'O CAi,l yA'>Tk'», 

k 0 V A;, t / • *■ ,t I 1 F ^ , f Vj \ , I V T T » t , I , ^ I 

J** AO I" » I >, ;0 *0 

.‘S^O PP ! ST , •wNAO;.t TO OOs.N 'OO^iF ! Lt * I ST AT » * .F'.A'AS , I nT AT 

.*H^0 GOTOlO’^ 

’‘AftO lOTO PP|NT,*OPtNtU ',FNAMS 

.'A TO JMcEFlim 

»‘^A0 CAui. MANi>l ’ ( IFC »lPEC t I ) 

,'S<JO • N0»< AS A LOAilCAL ChECA READ H| ADFR AND COMPARE 

.'600 Rt AO ( I FC • I > U « 1 » 1 A , I % , I A , 1 6 . 1 T , I A , 1 >1 ,CV , TfMp ,FPEO 

'60S IF I ! UNE.lFRt.OR,l;.ME.lTAAP,OR.l A.^■E, IRHO.OR.U.Nt , 

.610 S l,DR,l^,N£*LREC*0R»lf^*NE*N0lM)G0T06 000 

»6lS 00 iOTl 

^6,’0 Kl«(J-’)-*tREC*l 

?6^S 17-99, (j-l j 

^6lO REAO( ,C’J> (JTEMPdk), A»Al,K^) 

^6iS IF (K.',EO,l7-«9)&OTO1072 

,'6 hO ion CONTINUE 
^6SS 107^ CONTINUE 
^6SS IF ( lNTyP.tl3,0)GOTOl07- 

^6^S 00 107J J»l,!7-‘1R 

^670 1071 10IR(JI«|TEMP(J) 

^67S 1REC»19 

>6A0 NTYP»17 

^6BS |NTTP»0 

.’690 O0T01076 

*’700 107, IF ( 19.NE.IREC) CACL ERRSTT i NAME , |0 "h , I , I >) . 1 RFC ) 

i70S IF t 17.NE.NTYP) CALL E RR ST T ( NAME • 1 0’ S , I , 1 7 , N T Y P ) 

.’710 DO 107S J»l,NTYP-09 

.'71S 107S lFnTEMPU).NE.lPI«lJ) ) CALL ERR ST T (N AME , 1 07;, , u j , l T E MO (J n 

JT.’S 1076 continue 

;tSO print. ‘TYPE LTYP FOP DATA TO BE CANCELLED* 

.'760 1077 PRINT 15 

nro read.ltyp 

.'7«0 IF (LTVP.tQ.O)GOTOU’OO 

.'790 IF (LTyP.LT.IHUN.OR.LTYP.uE. 1TH0)G0T0107? 

.’HOO IF (LTYP.LE.NTYP)GOT Yl07a 

.’810 PRINT, *LTYP EXCEEDS NTYP»*,NTYP 

^8.’0 GOT01O78 

.'810 • AT THIS POINT READY TO CANCEE DATA 

^8**0 107a IRuIDlR ILTYP-99) 

20S0 DO UOO I«l,S 

i 860 IF ( ifilef ( n .EQ.O)GOTOUOO 

i870 1FC»U10 

i880 call 0PuFRW(IFC,1R,0»N0IM,I*»,N,NT0T,NUMF,NUMS,NEUS,NEUF , 

.'890 t» Z,Y,iO,YO,S.S| ,DL) 

*’900 IF ( U,EO.LTYP)GOT01088 

i9l0 1F( U) I08i, 108 a, 1088 

*'9.'0 108.' IF ( li.NE. (-LTYP) )CALL F-RRSTT (NAME , I08i , I i ,lTYP, U > 

i9lO A li»-LTYP 

i9%0 PRINT, *LTYP record ALREADY CANCELLED, F ILE *» I i 
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2960 

2^570 

2Sf)0 

2990 

3000 

3010 

3020 

3030 

30V0 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3l<»0 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

32<»0 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

33^0 

3350 

3360 

3370 

3380 

3390 

3<»00 

3410 

3420 

3430 

3440 

3450 

3460 

3461 


GOT01090 

108.. OHfiNT»*NULL RECORD . F I LE * » 1 2 «LT YP 

GOT 01 090 

lOd*! •0IbCCE^’9^CY IN FILE' .I2.LTYP 

call ERRSTT (NAME%1086. I2.LTYP» U) 

1088 I2a-U 

call OPUFRVM IFC»IR%1 ♦NDIM,I2«N,NT0T«NUMF,NUMS.NEUS»NEUF, 

6 2«Y*20*Y0,S»SI ♦OL) 

1090 CONTINUE 
IlOO CONTINUE 

PRINT 19»LTYP 
G0T01077 
1200 CONTINUE 

* AT THIS POINT GIVE USER CHANCE TO EXIT FROM THIS 

* PROCEDURE OF INVALIDATING LTYP RECORDS 

PRINT, 'TYPE I TO CONTINUE INVALIDATION OF ANOTHER COMBINATION* 
REAOtl 

IF(I) 1000»110»1000 
2000 CONTINUE 

* BUIlD/REBUILD FROM SCRATCH 
DO 2200 Isl,5 

* POLICY IS TO release ALL DPU FILES WITH THIS GENDER 
IFCsUlO 

* MAKING SURE FOR ALL COMBINATIONS THAT FNAMS DEFINED 
call NASTRK 

ENCODE (FNAMS, 14) ' DPU * , I FR£* 1000 , I TMP , IRHO . I • 

CALL YASTRK 

* IF file is OPEN GO TO RELEASE SEQUENCE 
IF(IFILEF(I),GT,0)G0T02100 

* otherwise ATTEMPT TO FIRST OPEN WITHOUT CREATING 
call OPENF ( IFC,FNAMS»ISTAT,3«1 «1) 

* IF successful go to release sequence 

IF(ISTAT.EQ.O)GOT02100 

* IF ISTATsS file DOES NOT EXIST 
IF ( I5TAT.EO,5)GOT02200 

* otherwise exit 

print, 'DPU FILE AND STATUS= • , I FRE « I TMP , I RHO , I , I STAT 
GOT07000 

2100 continue 

* release sequence 

call DETACH! IFC,ISTAT,) 

IF(ISTAT.EQ,0)GOT02110 

print, 'UNABLE TO DETACH DPUFILE I ASM, I STAT= • , I , I STAT 
G0T07000 

2110 IFIlEF(I)*0 
call nastrk 

ENCODE (STRING* 18) I FRE*1000 , I TMP , IRHO, I , * \ * 

call YASTRK 

call CALLSS(STRING) 

2200 continue 

* CREATE SEQUENCE 

2201 PRINT 45* ICBUF(3) ♦ (320*ICBUF(3) /LREO - 2 
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3‘»63 

3<*65 

3^66 

3467 2205 

3470 
3480 * 

3490 
3500 
3520 
3530 
35<f0 
35^1 * 

3550 

3560 

3570 

3580 

3590 2210 

3600 
3610 
3620 

3630 2400 

36<^0 

3641 

3650 

3660 

3670 

3680 3000 

3690 * 

3700 * 

3710 
3720 
3730 * 

3740 
3750 * 

3760 
3770 * 

3780 
3790 
3800 
3820 
3830 
3840 
3850 * 

3860 

3870 3120 

3880 
3890 
3900 
3910 * 

3920 3122 


P9INT 46 

READ, I 

IE( I,E::.C)GOT02205 
ICSJF ( 3) =I 
G0T02201 

continue 

00 2400 K=1,IA5MAX 

CREATE only desired FILES 

1 = 1 ASMV (lO 
IFC=IASMV(K)*10 

call nastrk 

encode (FNAMS» 14) 'DPU' ,ifre*iooo,itmp,irho*i • 
call yastrk 

NOTE ICBUFU)=2» IE. CREATING FILE ONLY IF IT DOES NOT EXIST 
call OPENF ( I FC .FNAMS . I STAT .3.1.1 CBUF ) 

IF( ISTAT.EO,0)GOTO2210 

print. 'UNABLE TOO CREATE DPUFILE I ASM. I STAT* '. I . I STAT 

G0T07000 

CONTINUE 

IFILEF(1)=1 

PRINT. 'OPENED '.FNAMS 

call RANSIZI IFC.LREC.1) 

CONTINUE 

NTYPs99 

NRCDs2^(MDIM->U /lREC 

IREC=NRCD*1 

IBUI=l 

Q0T03408 

CONTINUE 

ADD TO EXISTING FILES INCLUDING REVISIONS 
SET FLAG FOR LOGIC TO COMPARE NTYP 
INTYP=1 
DO 3200 1=1.5 

PICK ALL POSSIBLE FILES 
IFC=I.10 

IF already open BYPASS CALL OPENF 
IF ( IFILEF( I ) ,6T.0)GOTO3122 
OPEN BUT DO NOT CREATE 
call NASTRK 

ENCODE (FNAMS .14) ' DPU ' . I FRE^ 1000 . I TMP . IRHO . I . ' J ' 

call yastrk 

call 0PENF(IFC.FNAMS.ISTAT.3.1«1) 

IF(ISTAT.EQ.O)GOT03120 

print. 'UNABLE TO OPEN DPUFiLE. ISTAT = ' .FNAMS. ISTAT 

strategically will not ABORT SINCE FILE MAY NOT EXIST 
G0T03200 
CONTINUE 
IFILEFd)*! 
print. 'OPENED '.FNAMS 
call RANSIZ(IFC.LREC.I) 

NOW AS A logical CHECK READ HEADER AND COMPARE 
READ (I FC '1)11. 12. 13. lA. 15. 16. 17. 18. 19. CV .TEMP . FREQ 
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3925 IFnUNE.IFRE.0R.I2.NE,lTMP.0R,I3.KE.IRH0.0R.U.NE. 

3930 6 I .OR, I6.NE.LREC.0R. I8,NE.NDIM)GOT06000 

3935 DO 3123 J=2,I5 

39‘»0 Kl = ( J-2) *LSEC*l 

39^5 K2sMlr40 ( 17-99, (J-l) *LREC) 

3950 READdFC’J) ( I TEMP (K > ,K=k I ,K2 ) 

3955 IF(K2.EQ.I7-99)G0T0312A 

3960 3123 CONTINUE 

3965 312^ CONTINUE 

3975 IF(INTYP.EQ.0)G0T031A0 

3905 DO 3130 J=l,I7-99 

3990 3130 IDIR( J) =ITEMP{J) 

3995 IREC=19 

<,000 NTYP = I7 

4005 INTYPsO 

4010 60T03200 

4020 3140 IF(I9.NE.IREC) CALL ERRSTT (NAME , 3 140 , 1 , 1 9 , 1 REC ) 

4025 IF(I7,NE.NTYP) CALL ERRSTT ( NAME , 3 14 1 , I , I 7,MTYP ) 

4030 DO 3150 J=l,NTYP-99 

4035 3150 IF(ITEMP(J) .NE.IDIR(J) ) CALL ERRSTT (NAME, 3150, I ,J, ITEMP (J> ) 

4050 3200 CONTINUE 

4070 print, 'TYPE I TO ENABLE REVISIONS' 

4080 REAO,IREV 

4090 3408 CONTINUE 

4100 * AT THIS point USE SAME LOGIC FOR IOPT=2,3 WITH IBUI 

4110 * flag AS CONTROL. NOTE THAT NTYP HAS BEEN ESTABLISHED FOR 

4120 » EITHER CASE 

4130 rewind LUlNP 

4140 3410 READ(LUINP,10,END=3900)LINU,LTYP,IRVI ,11 , 1 2 , I 3 ,NTOT ,NUMF , 

4150 6 nums,neus,neuf,freqk 

4160 * NOTE FREQK AS READ IS IN KHERTZ, WILL CONVERT HERE 

4170 FREQ=ITHO*FREOK 

4180 IF (IDIA.NE.O. and. ILP.EO. 1) WRITE (LU0UT,44) FREQ 

4190 * the FOLLOWING LINU CHECK IS NOT NECESSARY 

4200 IF(LINU.NE.ITETE)CALL ERRSTT (NAME, 3410, ITETE, LINU, LUINP) 

4210 * IF 11,12,13 DO NOT MATCH SPECIFIED I FRE , IRHO , I TMP SEARCH FOR 

4220 * NEXT LINU=LEXI=9999 

4230 IF(I i,EO,IFRE.AN0.I2.EQ.ITMP,AND,I3,E0.IRHO)G0T03430 

4240 3412 READ(LUINP,10,END=9000)LINU 

4250 IF(LINU.NE.LEXI)G0T03412 

4260 print, 'NO MATCH* 

4270 G0T03410 

4280 3430 CONTINUE 

4290 # AT THIS POINT HAVE ACHIEVED A MATCH BETWEEN 

4300 * USER specified IFRE , ITMP , IRHO AND SIMILAR 

4310 # OUATITIES read FROM INFiLE UPTO BUT NOT LTYP 

4320 IF(LTYP,LT.IHUN.OR.LTYP,GE,ITHO)GOT03480 

4330 * the following ARE THE ONLY CONDITIONS FOR WHICH 

4340 » LTYP DATA WILL ALLOWED TO BE WRITTEN FROM 

4350 * infile TO DPUFILE. 

4360 IF ( IREV.EO.l .AND.LTYP.LE.NTYP.AND. IRVI .EQ.l )GOT03500 

4370 IF (IREV.NE.UAND, LTYP. GT. NTYP) G0T03500 
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4380 IFUBUI.EQ.I)<j0T03500 

43'?0 IF (LTYP,GT,NTYP)G0T034fl0 

4400 * IREV-TFRMINAl permission see line 2920 

^,<♦10 * IRVI-REAO FROM INPUT FILE 

<♦420 * ALSO included ARE THE FOLLOWING CONDITIONS 

<♦430 * WHICH DEPEND ON READING OPUFILF. TO GET ITS 

4440 * LTYP, WILL READ ONLY ONE* ASSUME OTHERS SAME 

4450 REAO( 10*IASMV( 1) • IDIR (LTYP-99) ) 12 

4460 IFn2,LE.0.AN0*LTYP,LE.NTYP)G0T03500 

4470 # HAVING REJECTED THE CURRENT INPUT FILE DATA SE i 

4480 * SEARCH FOR THE BEGINNING OF A NEW SET 

4490 3480 PRINT, ‘REJECTED SET WITH I RV I ,LTYP ♦ I FRE ♦ I TMP , IRHO* • 

4500 PRINT ll,IRVl,LTYP,IFRE*ITMPtIRHO 

4510 G0T03412 

4520 3500 CONTINUE 

4530 # HAVE NOW DETERMINED THAT HAVE MET CONDITIONS FOR REPLACE^'ENT 

AS^^O * OR ADDITION. 

4550 « NOW read Z and Y 

4560 IUITETE 

4570 ZRIIMI= XBIG 

4580 ZRiJMIs xBiG 

4590 ZIIIMIr XBIG 

4600 ZIIJMIs XBIG 

4610 ZRIIMAs-XBIG 

4620 ZRIJMA=-XBI6 

4630 ZIIIMAs-XBIG 

46^0 ziijma=-xbig 

4650 DO 3510 I*l,NTOT 

4660 DO 3510 J=l*NTOT 

4670 READ(LUINP,10)LINU»ZE 

4680 • inserting LOGIC FOR LIMIT VALUES. NOTE LTYP, 6T. 900 IMPLIES CABLE 

4690 ZR=REALIZE) 

4700 ZUAIMAG(ZE) 

4710 IERR=0 

4720 IF(I,EO,J)GOT03503 

4730 ZRI JMIsAMINI (ZRI JMI ,ZR) 

4740 ZRIJMAsAMAXUZRIJMA.ZR) 

4750 ZI I JMIsAMINI (ZI I JMI ,ZI ) 

4760 ZI I JMAsAMAXI (ZI IJMA.ZI ) 

4770 IF( IlIMIT.EQ,0)GOT03509 

4780 IF(LTYP,GE.900)GOT03505 

4790 IF(ZR,lT.ZOI JRL.OR.ZR.GT.ZOI JRH) IERR=IERR* l 

4800 IF(2I,LT,Z0IJlL.0R,ZI.GT,Z0lJlHnERRaIERR^10 

4810 G0T03508 

4820 3503 CONTINUE 

4830 ZRIIMIsAMINKZRIIMI.ZR) 

4840 ZRI IMAsAMAXI (ZRI IMA.ZR) 

4850 ZIIIMIsaMINKZIIIMI.ZI) 

4860 ZIIIMAsAMAXKZIIIMA.ZI) 

4870 IF(IlIMIT,EQ.0)GOTO3509 

4880 IF(LTYP,GE,900)GOT03507 

4890 IF(2R,LT,ZOIIRL.OR,ZR.GT.Z0IIRHnERRsIERR*>100 
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<»900 1F(2I.LT.Z0I I IL.OR.ZI.GT.ZOIIIH) I EPR= I EPR^ 1000 

4910 GOT03e,08 

4920 350*2 IFcZ-^’.LT.Zul jPl.OR.ZR.GT.ZUIjRH) IERPsIEPP^Z 

4930 IF (21 .^T.ZUIJIu.OR.ZI .GT.ZUIJIH) IEPR=IEPP*20 

49‘*0 G0T33508 

4950 3507 IF(ZR.lT.ZUIIRL.0R.ZR.GT.2UIIRH) IERR=IERR*200 

4960 IF(ZI.LT,ZUI I IL.OR.ZI .GT.ZUI I IH) I ERR = I ERR*2000 

4970 3506 I F ( I ERR .NE ,0 ) »^R I TE ( LUL I MJ » 20) LTYP , I ERR » I ♦ J « ZE 

4980 350Q Z( I »J) =ZE 

4990 Il=Il*lO 

5000 if(linu,ne.ii)Call errstt(name»3510*ltyp,linu, id 

5010 3510 CONTINUE 

5020 YlIIMIs XBIG 

5030 YIlJMIs XBIG 

50A0 yiiimas-xbig 

5050 YIIJMAs-XBIG 

5060 DO 3520 I=l«NTOT 

5070 DO 3520 J=l,NTOT 

5080 REA0(LUINP,10)LINU«YE 

5100 * ^^INSERTING LOGIC FOR LIMIT VALUES* NOTE LTYP,GT.900 IMPLIES CABLE 

5110 IF (REAL (YE) .NE.RZERO) IERR=3000 

5120 YIsAIMAG(YE) 

5130 IF(I.eO.J>GOT035U 

5140 YIIJMIsAMINl(YIlJMi,YI) 

5150 YI I JMAsAMAXl (YI IJMA«YI ) 

5160 IF( ILIMIT.E0.0)G0T03519 

5170 IF(LTYP.GE.900)G0T03512 

5180 if(yult.yoijil.or,yi.gt,yoijih) iepr=ierr-*-ii 

5190 G0T03518 

5200 3511 CONTINUE 

5210 YI I IMI=AMIN1 (YI I IMI ,YI ) 

5220 YI I IMAsAMAXl (YI I IMA.YI ) 

5230 IF( IlIMIT.EO.0)GOT03519 

5240 IF (LTYP.GE,900)GOT03512 

5250 IF(YI,LT,Y0I I IL.0R.YI.GT.Y0I IIH) IERR = IERR^12 

5260 G0T03518 

5270 3512 IF ( I,EQ.NTOT.AND.J.EQ.NTOT)GOT03515 

5280 IF(I,E0.1.AND.J.E0.1)YY=YI 

5290 IF( I,E0.J)G0T03516 

5300 IF(J.E0.NT0T,0R.I.E0.NT0T)G0T03517 

5310 # any REMAING SHOULD BE ZERO 

5320 IF(YI.NE.RZERO) IERRsIERR^13 

5330 G0T03518 

53A0 3515 IF(YI.LT.YY) IERR=IERR*1A 

5350 G0T03518 

5360 3516 IF(YI.NE.YY,0R.YI.LT.RZER0) IERRsIERR*15 

5370 GOT03518 

5380 3517 IF(YI,NE.(-YY) ) IERR*IERR*16 

5390 3518 IF(IERR.NE.0)WRITE (LUL I MT . 2 1 ) LTYP , I ERR » I » J « YE 

5400 3519 Y(I*J)sYE 

5410 IlslDiO 
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5420 

5430 

5‘***0 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 


IF‘(LlNU,he.I DCALL ERRSTT ( NAME » 3520 .LTVP »L I NU » I I > 

352H CONTINUE 

* NCrt -iA'.E Z and Y fop NTOT CONDUCTORS INCLUDING SFCON-'ACV 

* IF present, for simplicity of DEBUCGING/ClARITy wIll ’NE^T 

» EACH DISTINCT COMBINATION SEPARATELY AT POSSIBLE EXPENSE OF 

* COOING AND COMPUTATION 

* NOW MAKE some tests 
IF{NEUF,NE,O.AND.NEUF,NE, nGOT08000 
IF (NEUS.ME.O.AND.NEUS.NE, 1 )G0T08000 
IF(NTOT.LT,NUMF*NUMS*NEUS*NEUF)GOT08000 
IF{LTYP,LT,IHUN.OR,LTYP.GE.ITHO)GOT08000 
I2=M0D(LTYP,2) 

IF(I2.NE.0,AND,NL'M;.NE.0>G0T08000 
IF( I2,NE.O.AND.NEUS.NE,0)GOT08000 
IF(I2.EQ.O.AND.NUMS.EQ.O)GOT08000 
IF (NUMS.EQ»0«ANO.NEUS,NE,0)GOT08000 
IF(NUMS,NE.0.AN0.NUMS.NE.2.AND.NUMS.NE.3)G0T08000 

* PREPARE FOR WRITING BY FIRST CHECKING NTYP VS LTYP 

* FIRST CHECK TO SEE IF ATTEMPTING TO WRITE A 

* DUPLICATE LTYP, FORT lOPTsz (I0UI=1) NEED ONLY 

* check IDIR directory VECTOR. FOR I0PT=3 

* IN ADDITION NEED TO CHECK FOR NEGATIVE LTYP 

* . IF IDIR INDICATES RECORD PRESENT. AT A LATER 

* DATE CHANGE REVSION LOGIC SO THAT IDIR CONTAINS 

* INFORMATION 

IF (LTYP. GT. NTYP) G0T03521 
IRsIDIR (LTYP-99) 

IF(IR.LE.O)GOT0352l 
READ(IASMV(1)^10'IR) 12 

IF(I2.GT.0)PRINT«*WRITING RECORD FOR DUPLICATE LTYP* • ,UTYP , I 2 

3521 CONTINUE 

IF (LTYP, LT. NTYP )G0T03524 
IF(LTYP,EQ, (NTYP^l) )G0T03523 
DO 3522 J = NTYP*ULTYP-1 

3522 IDIR ( J-99) =-l 

3523 NTYPsLTYP 

3524 CONTINUE 

* NOTE that IREC IS NEXT AVAILABLE DPU RECORD 

» BECAUSE many OPERATIONS ARE SAME WILL PERFORM IN A LOOP 

* USING special LOGIC FOR EACH lASM 
DO 3600 IsltS 

* USE IFILEdI LOGIC INSTEAD OF lASMV(I) OPTION SINCE 

* WANT TO MODIFY ALL FILES NOT JUST THOSE IN lASMV(i) 
IFdFILEFd) .E0.0)6OT03600 

IFC*U10 

call CMTC0P(Z.SAI,NT0T,N0IM) 
call CMTC0P(YfSA2*NT0T,NDIM) 

GOTO (3530* 3540.3550*3560, 3570) .1 
3530 CONTINUE 

* LOGIC FOR lASMsl 
NEC0=NUMF*NUMS4NEUF 

* IF SECONDARY AND FEEDER NEUTRALS ARE EACH PRESENT. 
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59^0 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6271 
6280 
6290 
6300 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 
6320 
6330 
6340 
6350 
6360 


* interchange feeder and secondary neutral* other** I 5E order ck 
IF (NEUS.EQ.O.OR.NEuF.EO.O)GOT03590 

<=NECO 
L=NEC0>1 
GOT03580 
3540 CONTINUE 

* LOGIC for IASMs2 
neco=numf*neuf 

* IF secondaries and feeder neutral both present, 

* interchange first secondary and feeder neutral, 

* otherwise ok 

IF {NUMS.EQ.O.OR.NEUF,EO.O)GOT03590 
K-NECO 

LsNUMF*NUHS*NEUS* 1 
G0T03580 
3550 CONTINUE 
» LOGIC FOR IASMs3 

NECOsNUMF^NUMS 

* NOTE Z,Y IN PROPER ORDER 
GOT03590 

3560 CONTINUE 

* LOGIC FOR IASMS4 
NECOsNUMF 

* note z,y in proper order 

GOT03590 
3570 CONTINUE 

* LOQIIC for IASM=5 
necosnumf^nums^neus^neuf 

* NOTE Z,Y IN PROPER ORDER 

GOT03590 

3580 call CMTCRC(Z,SA1,<,L,NT0T,NDIM) 
call CMTCRC(Y,SA2,K,L,NT0T,NDIM) 

3590 CALL CZYRED < SA I , 5A2 , SA 3 , 5A4 ,NTOT ,NECO ,NDIM ,NW ♦ WK AREA ) 

* 5A3,SA4 CONTAIN REDUCED Z,Y 

IF (IDIA,NE.0)WRITE(LU0UT,31 )ltyp,neco,ntot,numf,nums,neus,neuf 
CALL LINEPU(SA3,5Aa,5AI,Z0,Y0,S,5I, 

6 DL.SV,SA5,SA6,WKAREA.NEC0*NDIM,NW, 

6 IDIA,LUOUT) 

IF(IDIA,EO*0)GOT03598 
DO 3591 J=l,NECO 

3591 SV(J)zOL(J)/FREQ 
WRITE(LU0UT,10) 'DL/FREQ* 

call CVEPRT(SV,NECO,NDIM,lUOUT) 

WRITE(LU0UT,10) *Y0‘ 

call CMTPRT(Y0,NEC0,NDIM,LU0UT) 

* THE ABOVE OUTPUT PROVIDED FOR THE PURPOSE 

* OF determining the effect of frequency, 

* CHECK DEGREE OF ORTHQGANALITY BY 

* 5TRANSP0SE*SC0NJUGATE 

call CMTABC(5,S,SA5»NEC0,NEC0,NEC0,NDIM) 

WRITE(LU0UT,12) 

call CMTPRT(SA5,NEC0,NDIM,LU0UT) 
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6390 

6400 

6410 

6420 

6421 

6422 

6423 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 

6540 

6541 

6542 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 

6780 

6781 

6790 

6791 

6792 

6793 

6794 

6795 


write (LU0UT»34) 

call CMTPRT (SA5«NEC0»NDIM,lU0UT) 

* calculate sum of current eigenvector components 

WRITE(LU0UT,32) 

* SINCE Q=TRAN5P05E OF SI, THE FOLLOWING CODE 

* calculates the SUM OF THE COLUMNS OF 0 BY SUMMING 

» THE ROWS OF SI 

DO 3593 J=1,NEC0 
SUMsZERO 

DO 3592 K=l,NEC0 

3592 SUMsSUM*5I <J»<) 

3593 SV(J>sSUM 

call CVEPRT (SV,NEC0,NDIM,LU0UT> 

DO 3597 Js1,NEC0 
XsTPI*FREQ/AIMAG(DL(J) ) 

3597 SV(J)sCMPLX(X,X/CLIGHT) 

WRITE(LUOUT, 10) 'ABSOLUTE AND RELATIVE SPEED* 
call CVEPRT(SV,NEC0,NDIM,lU0UT) 

3598 CONTINUE 

LENRECs7>(12*NEC0**2) *<2*NEC0) 

IF(LENREC.GT.LREC) call ERRSTT (NAME, 3598, NEC0,LREC,LENREC) 
call opufrwi IFC,IREC, 1,N0IM,lTYP,NEC0,NT0T,NUMF,NUMS,NEUS,NEUF, 
& SA3,SA4,Z0,Y0,S,SI ,DL) 

3600 CONTINUE 

IDIR(LTYP-99)sIREC 
IREC=IREC*1 
IF(ILP.EQ.O)GOT03610 
PRINT 44, FREQ 
PRINT 42 
ILP = 0 

3610 CONTINUE 

PRINT 43,LTYP,2RI IMI ,ZRI IMA,ZI I IMI ,ZI! IMA, 

6 2RIJMI,ZRIjMA,ZIIJMI,2IIJMA, 

6 YI I IMI ,YI I IMA,YI I JMI ,YI IJMA 

* finished with ltyp record 

* NOW return to input file whose next line number should 

4 BE LEXI 

READ(LUINP,10)LINU 

IFCLINU.NE.LEXI )CALL ERRSTT (NAME, 3900, L I NU,LU I NP,0) 

GOT03410 
3900 CONTINUE 

* NOW THAT INPUT FILE IS EXHAUSTED AND NTYP ESTABLISHED 

* WRITE HEADERS 
DO 3910 1*1,5 

IF(IFlLEFd) ,EQ.O)GOT03910 
IFC=I*10 

WRITE( IFC 1) IFRE,ITMP,IRH0, I ,NRCD,LREC,NTYP,NDIM, IREC,NOATE, 

6 TIME, FREQ 

DO 3905 J*2,NRCD 
Kls ( J-2)*LREC^1 
K2 sMIN0(NTYP-99, (J-1)*LREC) 

WRITE(IFC'J) (IDIR(K) ,KsKl,K2) 
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6796 

6797 

6798 

6799 
6810 
6820 
6830 
68<»0 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 


IF(K2.EQ.NTYP-99)G0T03906 

3905 CONTINUE 

* 

3906 CONTINUE 
3910 CONTINUE 

P«INT»*EXHAUSTED INPUT FILE* 

IF( ilimit.ne.o.and.lulimt.ne.6) 

6 PRINT«'9E'^EMB£R to EXAMINE CONTENTS OF FILE •♦LIFILE 

GOTOIOO 
4000 CONTINUE 

* LOGIC FOR formal PRINT OUTPUT 
4020 PRINT 26»IA5M 

PRINT, ‘TYPE CR IF OX, OTHWERWISE NEW IA5M* 

READ, I 

IF(I,EQ,0)GOT04040 

IF( I.GT.O.ANO,! .LE.5)GOT04030 

PRINT,MASMs1,2,3»4,5* 

GOT04020 
4030 IASMsI 

G0T04020 
4040 CONTINUE 

IFC*IASM4.10 
call NASTRX 

ENCODE (FNAMS, 14) *DPU' , IFre* 1000, IT'^P, IRHO, lASM, * ; • 

ENCODE (FNAME,U) • DPU* , I FRE* 1000 , 1 TmP , IRHQ, I ASM 
call YASTRX 

* IF already open POLICY WILL BE TO DETACH 

* SO THAT CAN EXAMINE ANOTHER FILE DURING SAME TRANSACTION 
IF(IFILEF(IA5M) ,E0,0)G0T04042 

call DETACH! IFC,ISTAT,) 

IF(ISTAT.NE.0)PRINT, ‘LOGICAL ERROR AT 4040^7» 
IFILEF(IASM)sO 
a042 continue 

* OPEN BUT DO NOT CREATE 

call OPENF ( I FC, FNAMS, 1ST AT, 1,1,1) 

IF(ISTAT.E0.0)G0T04044 

PRINT, ‘UNABLE TO OPEN OPUFILE » I STATs • ,FNAMS , I STAT 

* GOTO EXIT SEQUENCE 
QOTOllO 

<►044 PRINT, 'OPENED •, FNAMS 
IFILEF! lASM) si 

call RANSIZ( IFC,LREC,1) 

* NOW AS LOGIC CHECK READ HEADER AND COMPARE 

READ! IFC‘1) 1 1,12,13,1 4, NRCD,I6,NTYP, 18,1 REC,CV, TEMP, FREQ 
IF!I1.NE,IFRE.0R.I2.NE.ITMP,0R.I3.NE.IRH0,0R.I4.NE. 

6 IASM.OR.I6.NE,LREC.OR.I8.NE*NDIM)GOT06000 
DO 4046 Js2,NRCD 
KIs!j-2)«LREC*1 
X2sMIN0!NTYP-99, !J-1)*LREC) 

READdFC'J) (IDIR!K) ,KsKl,K2) 

IF!X2.EQ.NTYP-99)GOT04047 
4046 CONTINUE 
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72*0 

7270 

7280 

72<J0 

7300 

7310 

7320 

7330 

73*0 

7350 

7360 

7370 

7380 

7390 

7*00 

7*10 

7*20 

7*30 

7**0 

7*50 

7*60 

7*70 

7*80 

7*90 

7500 

7510 

7520 

7530 

75*0 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7621 
7630 
76*0 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
77*0 
7750 
7760 


*0*7 continue 

P«INT«*TYPE 100 FOR ENTIRE FIUE* 
read, I I 

IF( Ii,NE.lHuMG0T0*050 
I2«NTV'' 

I3«l 
16. 1 

GOT0*O60 
*050 CONTINUE 

PRINT, ‘TYPE I TO PRINT HEADER RECORD* 

READ,I3 

P«INT,*TYPE I TO PRINT DIRECTORY INFORMATION* 

READ, I* 

*055 PRINT, 'TYPE TWO INTEGERS FOR SELECTED RANGE ON LTYP* 

READ, II, 12 

IF(IULE.99)G0T0*055 

IF U2.LE.NTYP) 60T0*056 

print, *resetting maximum ltyp.ntyp* 

I2.NTYP 

*056 PRINT 13,11,12 
PRINT 16 
READ, I 

IF( I,nE.0)GOT0*055 

* NOW HAVE established ALL PRINT CONTROL 

* I3«l FOR header 

* 1**1 FOR DIRECTORY 

* ll.FIRST LTYP 

* I2*LAST LTYP 

* NOT rewinding LUOUT SINCE IT MAV CONTAIN DIAGNOSTICS 
*060 IFU3,E0.0)G0T0*070 

IFaUOUT.EO,06)CALL FORMFE 
WR I TE (LUOUT ,28 ) FNAME 

write (LU00T,29) ifre,itmp,irho,iasm,hrcd,lrec,ntyp,noim,irec, 
6 NDATE, time, FREQ 

*070 IF (I*.E0.0)G0T0*100 

wR 1TE(LU0UT,37) IREC-l 

WRITE (LUOUT, 38) (I.99,IDIR( I ) , I « I ,NTYP-99 ) 

*100 IF(l2,LT.Il)G0T0*205 
DO *200 I*II,I2 
IR*IDIR( 1-99) 

IF (IR.LE.0)G0T0*200 

IF( IR.GE.IREOCALL ERR5TT(NAME,*100,I ,IR,IREC) 

call DPUFRW( 1FC,IR,0,NOIM,lTYP,N,NTOT,NUMF,NUM5,NEUS,NEUF, 

6 2,Y,20,Y0,S,S1 ,0L) 

IF(lTYP,E0.0)G0T0*200 
IF (LUOUT. E0.06)CALL FORMFE 
WRITE (LUOUT, 22 )FNAMF 

WRITE (LUOUT, 25) I FRE , I TMP , l RHQ , I ASM ,FREO 
write (LU0UT,31)lTYP,N,NT0T,NUMF,NUMS,NEUS,NEUF 
WRITE(LUOUT.IO) *Z* 
call CMTPRT(2,N,NDIM,LU0UT) 

WRITE(LU0UT,10) *Y* 
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7770 

7780 

7790 

7800 

7810 

7820 

7830 

7831 
78^0 
7850 
7860 * 

7870 * 

7940 
7950 
8020 * 

8030 

8040 

8050 4120 

8060 

8070 

8060 

8090 4200 

8091 4205 
8100 

8120 6000 
8130 * 

0140 

8150 

8160 

8170 

8180 7000 

8190 * 

8200 

821' 

8220 

8230 

8240 

8250 

8260 

8270 

8280 7C10 

8290 

8300 8000 

8310 * 

8320 * 

8330 

8340 

8350 9000 

8360 * 

8370 
8380 
8390 * 
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call CI^TPRT (Y,N»NDIM,lUOUT) 

W«ITEau0UT,10) *20* 

call C^TPRT (ZO*N,NDI*^»LUOUT) 

»<RITE(LU0UT, 10) *Y0* 

call CMTPRT(YO»N»NDIfi*LUOUT) 

WRITE (LUOUT, 10) 'S' 

call CW1PRT(5.N«MD1M,lU0uT) 

call CMTRAN(5U5Al«NfN«NDIM) 

WRITE (LUOUT» 10) 'O' 

call CMTPRT(SA1,N#NDIM»LU0UT) 

WRITE(LU0UT»10) 'SI' 

call CMTPRT(SI tN^NDIM^LUOUT) 

WRITE(LU0UT,10) 'DL' 

call CVEPRT <DL.N,NDIM»LU0UT) 

COMPUTE RELATIVE AND ABSOLUTE MODAL PROPAGTION SPEEDS 
DO 4120 J»UN 
X*TPI*FREQ/AIMAG(DL( J) ) 

SV(J) sCMPLX (X«X/CLICHT) 

WRITE (LUOUT. 10) 'ABSOLUTE AND RELATIVE SPEED' 
call CVEPRT(SV,N,NOIM«lUOUT) 

IF(LU0UT,EQ.06)CALL formfe 
CONTINUE 

IF (LUOUT,NE*06) PRINT* 'WROTE '«OUFILE 

GOTOlOO 

CONTINUE 

ARRIVE here on MISMATCH IN DPU HEADER PARAMETERS 
print, 'HEADER PARAMETERS NOT COMSISTANT' 

PRINT 11,IFRE,ITMP,IRH0»I ,LREC,NDIM 

PRINT 11,11,12,13,14,16,18 

PRINT, 'CHECK also DIRECTORY VECTORS' 

CONTINUE 

TERMINATION DETACH PROCEDURES 
IF ( IOUT,NE.O)CALL DETACH (LUOUT , I STAT , ) 

IF( ISTAT,NE.0)PRINT 33,0UFILE, ISTAT 
IF( I InP,NE.O)CALL detach (I.UINP, I STAT,) 

IF (I STAT. NE.O) PRINT 33 , 1 NF I LE , I 5T AT 

DO 7010 IsUlASMAX 

call DETACH( I*10,ISTAT,) 

IFILEFd )*0 

IF(ISTAT.NE.0)PRINT, 'UNABLE TO DETACH DPUFILE ISAM='.I 
CONTINUE 

call ERRSTP(NAME,7010) 

CONTINUE 

REACH here when ERROR IN INPUT FILE SPECIFICATION 
OF ltyp,ntot,numf,nums,neus,meuf 

PRINT 11 ,LTYP,NT0T,NUMF,NUMS,NEUS,NEUF,I2 
call ERRSTT (NAME ,8000 ,LTYP ,NT0T ,NEC0) 

CONTINUE 

REACH HERE WHEN UNEXPECTED EOF OR LINE NUMBER IN iNFiLE 
call ERRSTT(NAME,900C,LINU,1,D 
STOP 

strategy FOR MANAGING IDIR DIRECTORY VECTOR 
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ri^oo * A) 

8410 * 

8420 * 

8430 * 3) 

8440 * 

8450 * O 

6460 * 

8470 * 

8480 « 

8490 * D) 

8500 * E) 


8510 • 

8520 * 

8521 ♦ 

8530 » 

85A0 * 

8550 * 

8560 END 


NTYP IS THE maximum VALUE OF LTYP FQR WHICH A 
CORRESPONDING RECORD HAS t3EEN WRITTEN, IE 

capable of being read 

SINCE LTYP.GE.IOO, lTYP-99 WILL BE USED TO ADDRESS 
DIRECTOR VECTOR IDIR,IE IDIR (LTYP-99) 

IF THE CONTENT OF Any CELL (IN THE RANGE OF I TO 
NTYP-IOO) OF IDIR IS 

GT.O, THEN THE CELL CONTENT VALUE POINTS TO VALID RECORD 
LT.O, THEN THE DPU PFCORO HA.* NOT BEEN DEFINED AND CANNOT BE 
IREC IS the NEXT AVAILABLE DPU RECORD 
THE STRUCTURE OF TH£ DPU FILES WILL BE 

RECORD f I - HEADER (INCLUDING NTYP AND NRCD) 

RECORD # 2 THRU 0 NRCD - CONTAIN DIRECTORY VECTOR IDIR 
WITH NTYp-99 ENTRIES 

RECORD 0 NRCD»1 - FIRST OCCUR ING LTYP DATA PECO«D 
RECORD ♦ NRCD*2 - SECOND OCCURINC LTYP DATA RECORD 
ETC. 
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04/07/ R I 2:40 PM 






0010 * THIS pqctoPA'-' PPC\/IOtS A PRCCcFDUS-E FOR GENERATING «ITH MINIMAL 

0020 * I'lPuT, VAPIOub typfs OF GENERIC '.ETWGRKS RESTRICTED TO A 

0030 * ''Axr'uf^ OF Sli.GuE LEVEL SRAhChI.MG* ALL THREE PHASE* UNIFORM 

OOAO * lU.E tyre in EACH 5EGVE^;T. nOFMALLY DISTRIBUTION TRANSFORMERS 

0050 ♦ ARE assigned AT EACH 400F. THIS OPTION CAN BE DEFEATED IF 

0060 * DESI»E'‘. 

0070 * THE Following is ^ key to the COLU^'N assignment in array ia 

0080 * COL 

0090 # I I PAR 

OlOO * I ILSN 

0110 * 3 IRSn 

0120 * 4 lTYP 

0130 * 5 ILCD 

0140 * 6 lOHM 

0150 * 7 I TTY 

0160 * 3 IPHS 

0170 * 9 NSER 

0180 * 10 IPRL 

0190 * 11 II.GD 

0200 * 12 ACCUMULATED lE^iGTH 

0210 10 FORwaTCTYPe CR IF GK ' ) 

0220 11 F0RMAT(I5»5I5»lX.7I5*2la) 

C230 12 format ( 'DNWKIN* ,p ) 

i>Z^O 13 format (• 'lETWORX IDENTIFICATION NUMEER = '»I2> 

0250 14 FORMAT(*FOR TRu^:lC * lTYRM , I LcNM « I DLFMs • , 3 1 7 ) 

0260 IS FORMATCFOR lATER AL ' * I 2 * • LTYP • , 1 1 , • , I LEN * » 1 1 * • » I DLE ' * I 1 ♦ 

0270 S •»IDIS»,I1*'=',4I7) 

0280 16 format ( ’Number of LATE=!AlS=* *12) 

0290 DIMENSION IA(2G00*12) ♦ILENLdO) *IDISL(lO) »IDLELdO) *LTYPL(10) 

0300 D I MENS I u.', LENGT(2000) 

0310 character OUFILE *0 

0320 DATA MD/ 10/ »LU/ 12/ *NL AT/2/ 

0330 data LTYPM/i33/*ILE:iM/lOOOOO/*IDLEM/lOOOO/ 

03^0 DATA IOHN/4/ * ITTY/25/ 

0350 data LTYPL/975, 175*8*0/ 

0360 data lLtNL/10000*5000*8*0/ 

0370 DATA I D I Sl /5000C * 70000 * 8*0 / 

0380 DATA I DLEL/500 *500 * 8 *0/ 

0390 call FPARA.'d 1* 120) 

0400 200 CONTINUE 

0410 PRINT 13*NID 

0420 PRINT 10 

0430 READ* I 

0440 IF( I ) 900*220*210 

0450 210 PRINT 13 

0460 RF.AD*NiD 

0470 GOT0200 

0480 220 CAlL NASTRK 

0490 E'K00E(0UFILE*12)nID*1000 


1-22 



ORIGINAL PAQl 
OF POOR QUALITY 

NETGEnSI 

0500 call VASTPK. 

0510 call OPSr.FcLU.CUPIwE.ISTAT, 2.0.1) 

0520 IF(lSTAT..‘;t.5'GOTC225 

0530 call JPe‘.F(L'J.OUFIuE.I5'^AT.2,0.0) 

05^0 tF( lSTAT,f;i.0)C'OTC230 

0550 Pwp.t, .U' A-l£ ’“C CPF.t FIuE ’.OUFIL".' I STAT* • . I STAT 

0560 STOP .'»2lU 

0570 225 IF(I5TAT.:.E.C)G0TC227 

0580 PPIfiT,»FlL£ '.OUFIlE.* ALREADY laISTS.TYPE CP [F OK TO OVEPViRITE* 

05P0 SEAO.I 

0600 IF (1 ) 2r.a.23O.20O 

0610 227 Ak^lVT.OOFlLE.’ I ST-Ta • , I 5TAT 

0620 '30T020C 

0630 230 PKI^T lr,,.'4LAT 

06AO PPI'lT 10 

0650 READ. I 

0660 IF(1 ) 200,230.235 

0670 235 16 

0680 READ.nlAT 

0690 IF(,NlaT*GT.10)Q0T0235 

0700 G0T0230 

0710 236 PMIf;T,»TYPE CP FOF AUTOMATIC 0 1 STR lOUT I ON TRANSFORMER ASSIGNMENT* 

0720 REAO.ITFLAG 

0730 2A.1 CONTINUE 

07AO PRINT IL.LTYPN, luENN. lOLE'’ 

0750 PRINT 10 

0760 READ. I 

0770 IF( I ) 200.260.250 

0780 250 PRI if lA 

0790 READ .LTYPM , ILE.IM , I CL£'' 

0800 G0T02A0 

0810 260 IF(,nlaT.E<3.0)GOT0300 

0820 00 290 ::al,f!LAT 

0830 270 PRINT 1 5 .N ,iN ,f; ,.M ,M .lTYPl ( ) , I LENL ( . I DLEL < N ) . I D I SL ( N ) 

0 40 PRINT 10 

0850 READ. I 

0860 IFtI,£3.o»GOT0290 

0870 PRINT l5.N.f;.i'i.M,N 

0871 READ.LTYPL(N) .ILENLC 4) ,lDL£L(m .IDISL(N) 

0880 G0T0270 

0890 230 COf-TiNUe 

0900 300 CONTINUE 

0910 * NOW CONSTRUCT MAIN TRU,*,< ROUTE 

0920 MLENGaO 

0630 ISMAXal 

0940 IPMSaQ 

0950 310 CONTImuE 

0960 * OETERnIiNE uEr4GTH OF NEXT SECTION 

0670 MaMlNOI IOLEH.ILENM-mlE.NG) 

0980 MLENG«ML£NG*M 

0990 IPHSaMODI IPHS.3) ♦! 

1000 * THE AdCVE GENERATES THp RECURSIVE SEQUENCE . I .2 . 3 . I .2 » 3 .ETC. 
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1010 * 

FGR TRA.-SFCkmEA ccmu 

1020 

IA( l3.';AX,UaIS.MAX-l 

1030 

IA( IS,'.!AX,2) aO 

1060 

: A ( IS-vax ,3) aO 

1050 

lA ( IS'.Aa,6| auTYP'’ 

1060 

I A ( I S.'A U5 ) aH 

1070 

lA ( lS.1AX,o) a ICH»*> 

1080 

I A ( I St** A.\ , 7 ) aO 

1090 

lA ( iSf'AXfd) ao 

IlOO 

IF ( ITFLAG.NE.O) GCTC315 

1110 

IA(lSHAX,7)alTTY 

1120 

IA( I5HAX,o) a IPWS 

U30 315 

lA ( tSHAX.9) aO 

1160’ 

lA ( I5'*AX, 10) *0 

1150 

IA( ISHA.X , m aSO 

1160 

IA^IS^'AX. 12) a^LEMG 

1170 * 

MOTE OSI ;G L2’7H COL 
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*180 * 
1190 • 
1200 
1210 * 
1220 
12A0 
1250 
1260 
1270 
1280 
1290 * 
1300 
1310 
1320 * 
1330 * 
13 AO * 
1350 
1360 
1370 
1380 

1390 * 

1391 
UOO 
! AlO 


IS* 


1 TO STCPE 
AXxlAST section 


ACCUMULAT<*E0 length from source 
NUMBER thus far processed ON 


<*00 


LOOP ON LATER'-LS IF AMT 


AT THIS POINT 
MAI -I ROUTE 

IF G.eo. ILEMM) 0CTU<*00 

PROCEED vilTH NEXT *'AIN uEMCth SECTION 
lA ( IS.*lA.X,2) »ISUAX«- L 
ISHAXalSUAX*.! 

GOTD310 
COMTI;*UE 
ISmm,v»ISMAX 
lLMM«aii.£f,M 

NOW -ill do master 

IP(NLA'.EQ.O)GOTOeOC 
00 700 NaUNLAT 

FIRST CHECK TO SEE IF LATERAL 
TR'J.‘,'< Ok is to CE ATTACHED AS 
DEPEND! iG ON whether IDISLC.) 
lUlLEfLC.) 

I2»IDLEL(<<) 

I3aIDISL(ii) 

IF ( I3.LT, ILMH:;) QOT0A30 

MO^ p-AfT TO APPEiC THIS TO E'iO OF CURRENT ^iaIN ROUTE 
IA( IS.-»AX,2) alSMAX*l 
ISMAX*ISMAX*1 
MLENGalLMKM 


iS TO 3E APOEMOEO TO EMD OF 

A lateral along maim route 

LARGER OR SMALLER THAN iLMHH 


MAIN 


U20 

U30 

lAAO 

1A50 

U60 

U70 

uao 

1690 

1500 

1510 

1520 


ILf..MWalL''M>*l 1 

610 COMTIMJE 

Mav I MO ( I 2 ♦ I LMVM-mle:.G) 

NLENGaMi.EMG*M 

IPHSaMOUI IPHS»3>*-1 

IA(ISVAX«1)*ISHAX-1 

IA( ISMAX»2) aO 

IA(ISMAX,3)aO 

IA( ISHAX.6) »lTY?L(.'I) 

lA ( ISHAX.5) aM 

I A ( ISfiAX,6) alOHM 
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1530 

15^0 

1550 

L560 

1570 

1580 420 

L590 
1600 
L6I0 
1620 
1630 
1650 
1660 

1670 450 

1680 4 
1690 * 

1700 

1710 460 

1720 * 

1730 ♦ 

1740 
1750 * 

1760 470 

1770 
1780 
1790 * 

1800 

1810 

1820 

1830 480 

1840 

1850 

1851 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 

1970 490 

1980 
1990 
2000 
2010 
2020 
2040 
2050 


IA( ISi-iAK»7) aO 

1A( IS^;AX«8) so 

IF ( ITFLAG.NE.O) GOT0420 

IA( IS'AX,7) aITTY 

lA ( IS^^AX .8) alPHS 

I A ( I5f^/ix«9) aO 

I A ( I 3iYmX * 1 G ) sO 

lA ( I SMAX » 1 1 ) s«o 

I A ( I SMAX « 12 ) s*^LcNG 

I F ( ‘«LEI.G . EO: . I Lf'K ) GOT0700 

lAUSt. Aa« 2) aIS^.AA•l 

IS4AXaI5i AX -I 

G0T0410 

CONTI ,UE 

AT THIS OPTION POINT Tr*E LATERAL HAS TO 5E ATTACHED TO SIDE 
OP -^aIN RCLTE. vCW search FCP Cr-RPECT DISTANCE 
DO 460 IsUISMAX 

IF(IA(I,12) .GE.l3.AND.lAn ,3) .EC.O) GOT0470 

IF uCGiC FALLS TmPU THIS SEA7CM IT MEANS THAT 

pRoeLEw has eeeh ill defined 

PR I NT « • I SHAX .I3.IA(I.12)s*,I SMAX , I 3 «I A ( I , 12 ) 

NOW .modify IRSN in SECTION I AND PLACE PARENT INFO IN lA 
ISMAXsISHAX*! 
lA ( I ,31 sISrAX 
lA ( ISHAX, 1) si 

N0.» APPLY uGGIC 
HLENGsO 
IFlAGsI 

IPHSs.MCOI IPHS»3) 

continue 

MsMi„iO(i2,i 
MLENGa«LENG*.M 
IPhSsmOC ( IPHS,3) ♦! 

IF ( IPlaG.EO.O) IA( ISYAX,!) slSFA»-l 
IA( I5HAX,2)SU 
lA ( I5 .max, 3) so 
IA( ISNAX,4 ) slTYPL(N) 

IA( ISi'.AX,5) sM 

IAnSf.;AX,6)slOHM 

I A ( ISttAX.7) aO 

IA( ISriAX.b) sO 

IF ( ITFlAG.ME.O) GOT0490 

IA{ I5MAX,7> aITTY 

IA(ISwAX» 6) sIPHS 

lA ( I5>AX,9) aO 

IA( ISMAX.IO) aO 

IA( ISHAX.in s50 

IA(I5MAX,l2)aMLEMG 

IFlAGsO 

IF ( MLEHG.EC. 1 1 ) G0TC700 

IA(I5MAX,2)aI5MAX»l 

ISMAXalSA'AX*! 
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2060 G0TQ4RG 

2070 70 ('‘ CO'.TI -'L'E 

2080 * :C. HAVE FI .IShED i-MTEPAu3f PPCCSEC TO WRITE OUTFILE 

2090 aO«i CO’iTI .Uc 

2100 * ARF. :V£ HEPE aHEN FIMS^^FO COi-:STR'JCTIMG lA ARRAY viITH 

2110 ♦ rS' AX THE LAST OF T«F CO^iTIGLOUSLY ASSIGNED SECTION 

2120 * ^u^LEPS. NO.. WRITE ^0 OUTFILE 

2130 »«KITE{l'J»U) lOOO,MD 

21<»0 00 aiO I = l»ISHAX 

2150 810 WRITE(LU»11) 1000*1 ,I.(IA(I,j) ,jsl, 12) 

2160 PRINT, 'v.PGTE FIlE '.CU'^ILE 

2170 call detach (lU, I STA'!’.) 

2180 900 PRINT, ‘TYPE 1 TO CONTIHUE OR CR TO 5^00' 

2190 hEAO,I 

2200 IF( I,..£.O»G0T02C0 

2210 STOP 

2220 ♦ IlslLEf-L(;!) 

2230 * I2sI0L£L(h) 

22 A -0 * I3sIDISu(,;) 

2250 * IDIM DIVERSION lI'^IT Oh ARRAY lA, ISECT L£ IDIM 

2260 * IDISL DISTANCE FROM SOUP£ TOLATEPAL BRANCH - A VECTOR 

2270 * IDLEL length CF SECTION ON LATERAL - AVECTOR 

2280 ♦ IDLEM LENGTH CF SECTION ON MAIN ROUTE 

2290 * ILEhL length CF LATERAL - A VECTOR 

2300 ♦ iLEr.H LE'‘GH CF '^AIN ROUTE - INITIAL SPECIFICATION 

2310 * IL ..•■H uE'.GTH of MAIN POUTS - AUGi'*ENTEO 3Y POSSIBLE LATERAL 

2320 * ISeCT CURRENT SECTION NUMSER 

2330 * is: aX. last SECTION NU^^BER ASSIGNED 

2340 * iS’iiH LAST SECTION NUhBEF ALCr^G f’AIN ROUTE 

2350 * ITTY DISTKIBUTICN TRANSFO«'MER TYPE 

2360 * LE':GT VECTOR CONTINUING ACCUMULATED LENGTH TO SECTION (sIMOEX POSIIIO 

2370 • LTYPL LT'E TYPE ON MAIN PO'JTE 

2380 ♦ LTYPL Ll.'.E TYPE ON LATER Al-A VECTOR 

2390 *. LTYPM line TYPE ON MAIN ROUTE 

24,00 * nlenG -.ORKING CURRENT TOTAL LENGTH VARIABLE 

2410 * III? !;eT'..CRX IDENTIFICATION NUMSEF 

24,20 * NLAT 'iU'--DER OF LATERALS 

2430 END 


1-26 


orig;nal page 5^ 

OF POOR QUALITY 


NETREVSl 04/07/81 2:40 PM 


0010*** RUIH •=(:jLl?»CCOEs3CK)LinP,ARY3 

0020 ♦ T-flS PPCGPA^ IS USED T'; C=£aTZ A ’EVEFSF .'-'ET'wORlC 

0030 * THE«E IS 0 CC-'.SISTAnC V CheCKIMG POUVlDEn 

0040 * THE OPIGIi Al ,.£ThOPK IS ASSUMED TO 'E CHECKED 

0050 ♦ I': A PPQGPa;; such as 'iTViKER 

0060 * The reverse path FOLLCi;.'S J,T.GAJJAR*S ALGORITHM 

0070 • dated 2/lR/i:-0 UPTO lO rJtvERSE '.ETVjCRKS CAM 

0080 * BE created FROM Oiit CRIGI'-Ai. r;ETHCPK 

0090 lOOl FORMAT (/-this P?ugRa.” CRC TES REVERSE PATH rJETWORKS"/ 

0100 6 "E-»TER 'ETAOPK NUMBER - 2 DIGITS ") 

Olio n02 FOR“'AT(/»'.eTLCRK IDt-MTIFlCATlCN rUMFEP IS "»I5/) 

0120 1003 format (- ENTER I IF hPOMG, ELSE Cr") 

0130 111 F0RWAT(6HCNW(Cin,I2»lH; ) 

0140 1000 format (V) 

0150 1005 FOR**AT(/"NEr«OR< ID NUr 5c.R I.M ERROR"/ 

0160 &-SHOULD £E "*I3»" BUT IS " , 1 3/ "“POG= AH ABORTS") 

0170 1006 format ("JHV.'K I M DATA EASE READING ERROR ENCOUNTERED"/ 

0180 6 "RECORD r.LMeES "W5*" HAS LlfiE r.UMEEP " » 1 5/"PRCGRAM ABORTS") 

0190 lOm FORMAT (/"EMTER NEV ROOT “■ODE "/) 

0200 10 LI FORMAT ( /"SOURCE FOR REVERSE NETWORK * "»I5/) 

0210 2000 format UCX,51 5) 

0220 1025 F0RMAT(/"ENTER 5 uOAD NljMEEP AT ROOT -ITTY , I PHSE » 1 3ECD * I PR IM * rZNGR 

0230 1015 format (/"There is only one SECTION TO THE ROOT"/ 

0240 6 "OF THE ORIGINAL '.£TV,ORK. PEVEPSAL SHOULD B£"/ 

0250 6 "PERFOPf-ED MAfiUALLY" // "FURTHER PROCESSING SUSPENDED") 

0260 126 FORMAT(5hj.';OUT,I2.2HO; ) 

0270 127 FOPi'.AT(5HjMOUT,I2»I 1,1 h;) 

0280 1030 F0RHaT(I4,5I5.1X»7I5) 

0290 1020 format (/"DO YOo ‘/:Ai\T ANOTHER REVERSAL OF THE SAME MET^ORK WITH •/ 

0300 6"A different SOURCE PCI'iT ?"/"IF SO ENTER I ELSE CR"/) 

0310 1021 FQPMAT("Y0U HAVE ALREADY CREATED lO NETWORKS* THE MAXIMUM"/ 

0320 6" Allowed fro'* ome input metwcpk"/ "program aborts") 

0330 1022 format ("DO YOU 'aA;iT REVERSAL FOCM ANOTHER NETWORK ?"/ 

0340 6" IF SO ENTER I ELSE CR"/) 

0350 DIMENSION lOESC ( 1300 « 12 ) ♦ I STAK ( 1800 ) * I L 1ST ( 1800) 

0360 CHARACTER *9 MNT IN »f‘STOUT 

0370 data LDAIN/1O/LOAOUT/11/UXNO/130O/KOUT/O/ 

0380 I WRITE(6» 1001) 

0390 READ* iirUM 

0400 WRITE (6* 1002) N.'iUH 

0410 wRITE(6»L003) 

0420 READ, ITEST 

0430 IF ( ITEST. NE.0)G0T01 ' 

0440 * 

0450 ♦ base jM\r;KlNl2(l2 AP£ LOCATIONS FOP NETWORK IDENTIFICATION 

0460 * MUMPER), THIS riETi-.'ORK IS READ FROM FILE 

0470 * 

0480 no ENC 0 DE(M, 1 TIN,UI)MMJM 

0490 call CPENF(LDAIN,MNTIN,ISTAT*1,0.1) 
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0500 


0510 


0520 


0530 


0540 

113 

0550 


0560 


0570 


0580 

llH 

0590 


0600 


0610 

115 

0620 


0630 


0640 


0650 

» 

0660 


0670 

116 

0680 


0690 


0700 


0710 


0720 


0730 


0740 


0750 


0760 


0770 


0780 


0790 


0800 

* 

0810 

* 

0820 

• 

0830 

# 

0840 

♦ 


?£A0 (LDAP,»1000) 
rF(‘:Nc-.‘t*tO*iC.‘;uM>GC TC 113 
W K T E ( 6 « I G 0 £ ) .'i ^.U M « < ‘ : U M 
STOP 1005 
OU lU I = l 
1ST Ap ( I ) 5 0 
ILISTCI) =0 
I3E5C(I»l)=-lO 
COfNTI ;ue 
JRGJT = 0 
I a 1000 
taI-1 

READ ( lC A I fi , 1 000 « E^D* 1 25 ) *:L ME » I SECT , I PAR , I LSO.'i » I R SON ♦ 
& lTYP . I LE.'iCD ♦ I R ES , I tty , I PHSE * I ScCD . I PR I M , I ZMGR 
IF(Ncir.E.EG,I)GOTOll6 
v*RITE(6» 1006) I ♦MuIf.E 
STOP 1006 

IDESC( ISECTti) alSECT 
IDESC(IS£CT,2) sIPAR 
IDESCdSECTO) = ILSCr-; 
l0eSCnSECT,4) aIRSON 
IDE5C(ISECT,5 ) sLTYP 
lOESC(ISECT»6)sILcf^CD 
IOESC(IS£CT«7)alRES 
IDESC( I5ECT.8) alTTY 
lOESCt rSECT»9 ) siPhSE 
iDESCaSECTtlC) alSECD 
iDESC(ISECTtLl) alPRIM 
lDESC(ISECT.12)aIZ;:GR 
GO TO 115 

f4C.v THE network has EEE.*: READ I,\ 
ijOTS there is no CCNSrSTAKY CHECK.Ir:G AT ALL 
THE original NETWORK HAS A ROOT NODE IDENTIFIED 
3Y A 0 PARENT 


0850 * 
0860 * 
0870 125 

0880 
0890 
0900 
0910 
0920 
0930 * 
09A0 ♦ 

0950 * 

0960 » 

0970 * 

0980 * 

0990 

1000 ♦ I 

1010 


r:EXT ,»tE READ IN SOURCE NODE FOR REVERSE NETWOR'^ 

WRITE <6. 10 10) 

REAOfNSCRCE 

WRITE(6»IC11).«S0RCE 

kRITE(6»L003) 

REAOf ITEST 

IF(ITEST.f;£.0)GO TO 125 

NEXT »jE check TO SEE THAT THIS IS A VALID SOURCE NODE 
NEXT WE traverse THE NETWORK 6 “'AKE IT DISJOINT AT 
AT THE NEW SOURCE NCDE HY SETTING I0E5C(ND»1) 

EQUAi TO -10 FOR ALL MOOES 3EL0W NSORCE 
THIS EFFECTIVELY RE.TCVES THEM FROM THE NETWORK 
OESCRIPTICN AND FPCN THE OUTPUT FILE 
DO lAO lalpMAXNO 

F( I .LT.15)"RITE(6«2000) ( IDESC( I *J) »Jal *5) 

1F( IOesC( I * 1 ) .LT.OGO TO lAO 
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lOZO 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
IIZO 
1130 
1140, 
1150 
1160 
1170 
; 180 
.190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
UlO 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


.iO»lOESC( I »1) 

131 IP( I3ESC( -l.S 2) .£0.;.SCSC£)G0 TO 132 
IF( I-£5CC i^»2) .cJ«G)GO TO WO 

f.O » I0£5C( 0»2) 

GO TO 131 

132 IDbSCt I ,1) s-io 

140 C0!.TI.\U£ 

I»l 

MS*riSC'H Cc 

141 IS7A< ( I ) S.' S 

* ,I3TA<(I) S.IC£SC{-:S.2) 

IF( i:cSC(i.S«2) .EO.OGO TO 200 
fiPAKaIDE5C(.'.S,2) 

IF(IC£SC(i.PAR,3) ,EQ,NS)GO TO W2 
ILI"ST(I)sICESC(.';PAR»3) 

GO TO 

142 ILIST(I) slLieSC(i\PAP,4) 

144 IF(ILIST<I) .EQ.OJGO TO 145 
lOeSCULISTd) *2)af5S 

145 MSalDESCCJS« 2 ) 
laUl 

GO TO 141 
200 ,'iLEal 

IF(.'il£.lE.I)GC TC 300 
I0E5C(NS0RCE.2) so 
IOESCC:SORC£,3) sISTAK (2) 

I0e5C(;iS0P<-E»4J alLlSTd) 

00 201 <a8fl2 

IDESC(r!SCRCE,IO sIOESCCISTak (2) »K) 

201 CONTINUE 

IF(NlE.£3,2)G0 to 230 
DO 220 Ia2»ML£-l 
NSsISTak ( I ) 

I0ESC(,nS,2) sI5TA< (1-1) 

I0ESC(NS»3) sISTAK ( Wl) 

I0E5C(iS«4)srUSTd) 

00 219 N»8»12 

ICESCC|S«<) alOESCdSTAK (Wl) ,<) 

219 CONTIiiJE 

220 continue 

lOESCdSTAN (r.t£) «2) slSTAK (NLE-1) 

222 lOESCdSTAK (f!LE) »3) a 0 
lOE5CdSTA< (NlE) f4) a 0 
«RITE(6.1025) 

READ* dCESC( ISTAK (NLE) »K) ,Ka8»12) 

» NEXT ,'E CREATE THE OUTPUT FILE AMD .RITE THE NEW 
» network DESCRIPTION DOWN INTO OUT PUT FILE 

* ksEFORF that .»£ TAKE CAP£ OF THE SITUATION VWHERE THERE 

* are two or cuS' SECTIONS TO THE ORIGINAL SOURCE 

* I,'! THAT CASE the ALGOPITHHIC APPROACH USED HERE WILL 

* fail in the fortran logic, it is easy to take care of 

* This situation HANUALLT, we will SINPLY afort with 
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15A0 * 

1550 

1560 230 

1570 

1580 30C 

1590 
1600 * 

I6l0 * 

1620 ♦ 

1630 * 

16^0 * 

1650 250 

1660 
1670 
1680- 
L690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 

1770 260 

1780 

1790 

1800 261 

1810 - 

1820 

1830 

1840 

1850 

I860 

1870 

1880 270 

1390 

1900 

1910 

1920 

1930 

1940 


A.\ appropriate error '"ESSAGE, 

50 TO 250 

IUE5C( ISTA< (.\L£) »2) sf.SOPCE 
50 TO 222 
•'■RITE(6.1015) 

50 TP. 26 1 

■*Oti THE OUTPUT file IS CREATED '/ITH ITS HEADER 
The of TH£ OUTOIjT .■iET.-IORK'. FIuE is JN0UT123 

..'HERE 12 ARE 7HE ICE‘'!TlFICATICMf;U‘-!BERS OF THE 
The I.-:PuT 'iETiNORlC AHO 3 IS THE ONE DIGITOUTPUT 
'!£T„ORK CODE - KOUT, STARTinC WITH 0 
IF (<ouT,EG* 0) E'ICODE (.'••iTOuT, 126) PNU.-'' 

IF(;<QUT.fi£.0) EliCODE (H-.T0UT.127) v.NU.M,<OUT 
CALi. CPENFlLDAOUT.f-NTOUT. ISTAT) 

IF( ISTAT.‘;E.0)CALL FlLSTO(-1i'lTOUT» 'status* fOtlSTAT, 250 ) 
PRINT. 'OUTPUT filenames' .MriTOUT 
NLlNEslCOO 

WRITE(lDACUT. 1030) NLI.'‘'E.MMUH»<0UT.N50RCE 
00 260 Ial,.NAXNO 
IFUDESCU .1) .lT.O)GO to 260 
•NLl.NE sKlIME^I 
IF{NLIME.GT.9S99)ST0P 9999 

wSITE(LDA0UT»103C)MLriE. (IOESC( I .J) .Jsl ,12) 

CONTI MUE 

CALL CETACHCLDAOUT, ISTAT.) 

I F (I STAT .HE . 0 ) CALL F I lSTC ( MNTOUT . ' DETACH ' . 0 , 1 STAT . 260 ) 
WRITE(6.1020) 

REAO, ITEST 

IF(IT£ST.£G.0)G0 TO 270 
KOUT 5 <0UT*1 

IF(<0UT.GE.10) WRITE (6. 1021) 

IF(K0UT.GE.10)STCP 270 
RENIMC LCAIN 

GO TO 110 
viRITE(6.l022) 

READ. ITEST 

IF( ITEST. £3.0) STOP 280 
CAuL D£TACH(LDAir:.ISTAT.) 

IF( ISTAT.NE.0)CALL F I lSTO ( fir'T I f! . ' STATUS • .0 ♦ I STAT . 280 ) 

GO TO I 

END 
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0010 * r-IS r'^RCGRA'' SELVES rc C::; iSr>L I iATE SEPERATc ‘lEUTRAL 

0020 » C?-:C'-C’C',S ''-SSCClATcO -ITh I X- IVIHual UiiOEPGPOUND 

0030 ♦ PC'EP Ca = l£S I'lTO ELECtRKALLV ECUIVALEfiT SINGLE NEUTRAL 

0040 * c::ni;^'CtC'P analogols tc rug sit’jatio.-; found in open wipe 

0050 » OVERHEmC CGNCuCTORS.TWIS ppOGPAf USES IMPEDANCE AND 

0060 * AC 'XTTA.'.CE DATA I‘. UNIT OF OH?. Sz-'ETEP A;ID MHOS/'^ETER 

0070 * calculated For 3u^^IED cable hy use of the 3PA EMTP 

0080 * CA5LE CONSTANTS OPTICN. 

0090 ♦ I-: CALCtuATlOf: PnPFCP‘«i^n THF PPCGRA.1 THE ELECTRICAL 

OlOO * EDU I valent MEUTPAl CO’iJUCTOR IS NOT ASSUMED TO BE AT 

0110 * GSOUf-D potential THUS PETATlING THF EVUIVAlENT NEUTRAl 

0120 * 45 AN ‘EXPLICIT* CONDUCTOR. 

0130 * This PRCGRa'* IS EQUIPPED TC SUPPLY THE 

0140 * PROPER 4 AMD Y .vaTRICES FOR EITHER 1,2 OR 3 PHASE CASE BY 

0150 * the paofef extracticin and manipulation of the elements of 

0160 * the 6 by 6 impedance A.mD ADMITTANCE -tATRICES SUPPLIED BY 

0170 * THE s.P.A, PROGRAy 

0180 4 ^'RITTEM BY RICHARD .tOODIi'G 

0190 LO FOPMAT(V) 

0200 20 F0RMAT( l4f 1015) 

021C 30 F0RyAT(l4,LX,lPEl5.6,lX,El5.8) 

0220 40 format ( l4) 

0230 NFM39999 

0240 DATA LUIN/11/,LUCU/12/ 

0250 CHARACTEP49 R0« , I -'PEO , AO^' I T 

0260 CHASACTEP*9 r:FIu£,OUTFlL£ 

0270 COMPLEX CC,CMl,CM2,C*i3,C '4,2MCD5,2' 006 

0280 * CATAZ IS THE IMPEDANCE MATRIX, QATAY IS THE ADMITTANCE MATRIX 

0290 OI«E‘.SrO.. DATA (24,6) ,0i»TAZ(6,6) ,DATAY(6,6) ,Z.*‘’00(4) ,Z‘'CD6{4) « 

0291 & 0ATZ2 (6*6) ,0ATY2 (6,6) ,:ATZ3 (6«6) 

0300 COMPLEX DATAZ,CATAY,ZNOP,Cl,C2,C3,C'ATZ2»OATY2,OATZ3 

0310 llO PRINT, 'ENTER THE NAME OF THE CD^OL£X DATA FILE FOLLOWED 3Y;* 

0320 REAC,ir;FIL£ 

0330 call OPENFCLUIN, INFILE, ISTAT, 3, 0,1) 

0340 PRINT, 'ENTER THE MA«E PF tH£ OUTPUT FILE FOLLOWED BY A ; ' 

0350 REA0,0UTF1lE 

0360 call CPENF(LUOO*OUTFIL£*ISTAT,3,C ,C) 

0370 READ(LUl:i,lC,e.‘Cs999)fiPRl,.M0CASE» PC,? FOC,NCC ,NTPC ,NTQT ,flPHSET , NSP ,NSf< 

0380 6 iEUF 

0390 READ ( LU I fi « 1 0 ) LNUMO , I MP£0 

0400 PRINT, 'lTYPE case data* 

0410 PRINT,NPR1 ,fi0CASE»fRC,i-F0C,MCC»NTPC,?:T0T,NPH5ET,MSP»NSN,NEUF 

0420 PRINT, 'TYPE A C^ IF OK' 

0430 REAO.nCHK 

0440 IF(iNCHK.ECj.O)GCT099 

0450 PRINT, tew MODIFIED DATA CASE* 

0460 REAC».':PR1 »NOCASE»NPC,nFJC,( CC»NTPC,.*iTOT,*!PHSET,?ISP,NSN»NEUF 

0470 PRINT, 'MCDIFIEC CASE DATA* 

0480 PRINT, NPRl ,NOCASE».NRC,.nFoC, -ICC, NTPC, ?'TOT, rlPHSET,NSP ,NSN,NEUF 
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0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0530 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0650 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 


PPI‘!T,'T''PE CP IF C.K.' 

PEAOf-lC'-IK 

IF( \*CHf .£0.0)COT099 
IF (i\CHK CCTQZbO 

99 Ll:;Xsl 

DO ICO Isl»ll*2 

PEAC 10) L.\U.-U .FvT.v , (DATA ( I .J) <J»l »6) 

hEAC (LOl.'.t 10) L.\U''2. (DATAf I*i ,j) ,J=L»6) 

PtAD(Lori« iO)Lr:U.'*3,uOr-.E 
F.EAC (L0I.:» 10) L''Ui^4 

OlO-' co.ntimje 

SEAO (LUl..f 10) LKUi'T'tAjf'lT 
DO lol Is13,23«2 

PEAC (LJK*»10)L;.U‘'1 (DATA (I »J) »J*l »6) 

READ (LjIN* 10) LMUN2, (DATA ( I ♦ I , J ) , J= I .6 ) 

READ ( L'J If' » 10) LDUM3 ,LOf'£ 

REA0(LL-I.‘'»10)LKUM4 
101 CO^Tli\UE 

PPiNTt'TYPE A 1 TO BYPASS THIS CASE* 

READ,.‘:PASS 

IF(NPASS.EG.DGOTOllO 
• PRINT, »EMTEP The NUf-iSEo OF PHASE CABLES* 

READ«f‘jPHASe 
fjOC=(‘iFHASE*2 
111 NPRlslClO 

* HERE THE CO‘*Pl£X 6X6 ■-'ATP IX IS READ FROM THE DATA FILE 
DO 12C Isl,6 

00 130 JsU6 

IP»<2*I)-1 

IQa(2*I) 

RCI^OaTA ( IP,J) 

RC2aCATA(I0.J) 

OATAZd ,J) sC!^PL<X(RCl»FC2) 

I3l; CONTI -iLE 
I2ii CONTI, '.US 

» NO.'rf FORf^ THE COMPLEX 6X6 Y 'ATRIX 

00 UO 1 = 1*6 
DO 150 Jsl*6 
KP* ( { (2*1 ) -I ) *12) 

<0a ( (2*1 ) ■*■12) 

OATAY ( I ,J) aCHPLX (DATA U;P,J) .DATA (KO* J) ) 

150 continue 
140 CONTINUE 

IFC-iPHASE.E(3.2)COTG205 
IF (NPhASE.EQ. 1 ) Q0TO270 

* NOW FGPN THE COEFFICE'NT CO^.ICK TO ALL THE MODIFIERS 
Q1s(0ATAZ(5,o) <*0ATAZ(4,4) -CATAZ(4*5)-0ATAZ(4*6) ) 

02a( (2*0ATAZ(4,4) )-(2*CATA2(4*5) ) ) 

(J3a( (2*0ATAZ(4»4) ) - ( 2*C ATAZ ( 4*6 ) ) ) 

CCa( (02*03)-(01> **2) 

* NOW COMMON ELEMEfiTS I'l EACH MODIFIER ARE FORMED 

* NOW FORM THE MOO I FIE? S 
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1010 00 l&O 

1020 on 170 jal.4 

1030 C-U*< ( c:ATA 2( I ,5) -Cr'TA2( I »4) ) /CC) *< ( (OATA2 ( J <6 ) -CAT 

1040 ft i2 ( J,4) ) *01) -n.’ATAZ (J,9) -0ATA2 { J»4) > ♦OB) ) 

1050 Cf'2s ( ( (wmTA 2( I «6) -C iTAZ U .<») ) /CO *( ( (OATAZ ( J »5 ) -O^T 

1060 it AZ(J»A> )*CI)-(0ATaZ(j«6)-CATAZ(J*-*) >*02) ) 

lOTO 0AT23 ( I ,j) 3 DATa2( I ,^) -(C 1-0-2) 

1060 170 CC'r,TI-;Uc 

1090 U** COMiMviL 

1100 ♦ f:a!. the ".ocified y '-'atrix 

1110 CO InS I*U3 

1120 DO 166 jsl«3 

1130 0ATY2 ( r ♦«) sDATAY { I ,J) 

1140 Ion C0rTir i;£ 

1150 165 cor Ti:,uE 

U60 00 190 Isl»3 

1170 0ATY2 (1,4) sDATAY (1,4) ♦OATAY( I ,5) ♦OATAY (1,6) 

1180 190 C^^.TI^'UE 

1190 DO 200 K*i»3 

1200 0ATY2 ( A,K ) *0ATAY (< ,4) ♦PATAY ( K , 5 ) ♦DATA Y (X ,6) 

1210 200 continue 

1220 DATY2 ( A,4) a (DATAY (4,A) ♦ ( 2*0ATAY ( 4, 5 ) ) ♦ ( 2*0ATAY ( 4,6 ) ) ♦OATAY (5*5) 

1230 6 ♦(2*CATAY(5»6) ) ♦DATAY(6»6) ) 

12A0 205 NP'^sr.PHASE^l 

1250 DO 206 Isl»2 

1260 0ATZ2(I»3)20ATAZ(I.4) 

1270 DAT22(3»I) sCATaZ(A,I) 

1280 206 C0MTI^;UE 

1290 DATZ2i3*4 ) *DmTAZ(A,5) 

1300 DO 207 jal,2 

1310 0ATZ2 ( J*4) »CATAZ( J,5) 

1320 0ATZ2(A,J) aCATAZ<5.J) 

1330 207 C0OTr‘;U£ 

134C DATZ2 (A,3) *CATaZ(5 ,4) 

1350 OATZ2(3,3) sCATAZ(4,4) 

1360 DATZ2(‘‘,4)*DATAZ(5,5) 

1370 DO 208 I*l»2 

1380 DATZ2(I .DsDATAZU ,1) 

1390 206 CONTI'-l'JE 

1400 DATZ2(1.2)*CATAZ(1,2) 

1410 0ATZ2(2,1)sCATAZ(2.1) 

1420 IF(NPHAS£.)E.2)G0TC270 

1430 DO 215 1*1 ♦.•iPf’’ 

1440 DO 216 Jal.NPY 

1450 CM3*< C'ATZ2n »4)-0 mT22(I .3) ) * (CATZ2 < J * 3 ) -OATZ2 ( J .4) ) ) 

1460 CH4s( { (2*DATZ2(3,4) ) - ( PaTZ2 ( 3 » 3 ) ) - ( 0ATZ2 ( 4 ,4 ) ) ) ) 

1470 Z*^CD5*-(CM3/C>i4) 

1480 0ATZ3 ( I ,J) »OATZ2 ( I . J) ♦Z^OOS 

1490 216 CONTI .'iUc 

1500 215 CONTIf/JE 

1510 0ATY2(l,I)sDATAY(l.l) 

1520 DATY2(U2)*DATAY(1,2) 
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1530 


DATY2<2.D sDATAYIZ.I) 

15^0 


DATY2(2»2)al'ATAY (2.2) 

1550 


L>ATY2{ 1 .2) *rAT,iY ( 1.*.) *OTAY(l,5) 

1560 


uATY: (2 .3) sCmTAY (2.4) ♦0AT4Y (2 .5) 

1570 


uO 221 I»1.2 

1580 


DATY2 ( ’ . I) »0AT,-Y (4,1) A'»‘AY (5.1) 

1590 

221 

CO’^71 ,l£ 

1600 


DATY2 ( 3 ,3 ) s (2ATAY (4.4) ♦0.4TAY ( 5 »5) • < 2*04 

1610 ♦ 


‘'Ca V.PITE THE CUTP'JT PILE 

1620 

27'' 

.V‘<ITF(U..'''-'.20)'-P91 0CA5E.''“C. .F';c,.'.cc. 

1630 

i 

. •I'.Si'- .nEvJP 

16^0 


IF( -.“hASc.SC'.Z) 3CTC'400 

1650 


NP4a^;Ph•AbE♦ 1 

1660 


ir(NPHMSF.E(:.l)C'ATZ3( 1.1 )=CaTAZ( I.l) 

1670 


IF;riPHASE*c4,l)n4T23 (2.1)arATA2(4.l) 

1680 


IF (vPHASE.EO.l) 0AT23 (1.2) aOATA2( 1 . 4 ) 

1690 


IF(n?H4SE.EC«1);jATZ3(2.2)*0mTA2(4.4) 

1700 


IF{NPhASE.cQ.1JDATY2(1.1)s!:aTAY(1 .1) 

1710 


IF(NPhAbE.EC.l)DATY2(1.2)ar'ATAY( 1 . 4 ) 

1720 


I F ( NPhASE .EC • 1 ) 0ATY2 ( 2 . 1 ) ATAY (4.1) 

1730 


IK (NPHASE.EC.I) OATY? (2.2) sOATAY (4.4) 

1740 


DO 210 <al.i‘tP*’ 

1750 


00 220 LaUNP’*' 

1760 


riPRlanPRl-lfl 

1770 


rtPlTE(LUGU.30) 'iPRl ,L'ATZ3 (K.U 

1780 

220 

CONTIflJE 

1790 

21 ) 

COf'iTINLE 

1800 

400 

r^Ss 1 

1810 


IF(NPHASE.’iE.2)G0T043C 

1820 


00 4ioisl .'(PM 

1830 


DC 420 jal.f.P“ 

1840 


.‘;PRl*HPr!I*lO 

1850 


W«ITE(L’jCU.30)r.PRl .CATZ3 ( I .J) 

1860 

420 

CO.mTI.NUE 

1870 

410 

coMTi'iue 

1880 

430 

MTsi 

1890 


00 230 

1900 


DO 240 L»l.”P‘’’ 

1910 


.lPPla).PPl*l0 

1920 


4«ITE(LUCU.30) i.PPl .DATY2 (< .L) 

1930 

240 

CO-!TI.iU£ 

1940 

230 

COr.TiMUE 

1950 


WRITE{LUCU.4U) f;FH 

1960 


PH I NT. 'TYPE A 1 TC PHQCESS A NEW I '-PUT 

1970 


REAO.I 

1990 


call detach ( uU in .ISTAT.) 

2000 


call 0ETmCH(lUCU«I5TAT.) 

2001 


IF(I,EC.l)<i(3T0110 

2010 

280 

PR I NT. 'STOP OF EXECUTION NORMAL’ 

2020 

999 

PRINT. ’Ei.O CF DATA FILE* 

2030 


STOP 

2040 


END 


PAGE 


KILE’ 
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010*#RUN**; Meu3ED02(i'.CG0»C0REa30lt ) 

020 SUBROoTr'E ‘'fcUREO ( Y .2 WIPI'^ZY , SA I » SA2 «SA3 fWlCAREA «NW .NOIM) 

030 ♦ this Slj=R0UTI.\£ CO:‘'?UT£S A ^:EUT?AL ®E0UCTI0n PROCEDURE 

040 * oSI'iG A GENERALIZEC APPROACH DEVELOPED BY R.RUSTAY 

050 * DOTE That THE RESULTS APE RETUPiSEO IH 2 A.'ID Y WITH ZEROED 

060 * «ORCE®S. THUS CRICI-.AL Z»Y, APE DESTROYED 

070 CO‘'PLEx S^l (KDP'f.NDI 1) »Y (/'DI IZY.f DI ’ZY) ,SA3 <'40IM,N0IM) 

080 CO*’PLcX SAZCiUlM.hOI -U »Z('J0PI2Y.NDr-'ZY) 

090 CO^’PLEX SUf , ZERO «ZC;.e ♦DEM 

100 DI’lEf.SIDM -KAREA(f>) 

110 DATA ZERO/(0,tO,)/^ZONE/(l..O.)/ 

120 * IF H*^*l there is f'O ^EEO FOR COMPUTATIOM 

130 IF<M,EC.<M*1) )R£TURi4 

140 L*H^l 

150 K*H-f4 

160 ♦ REDUCTION OF Y 

170 DO 210 Isl« 4 

180 SUM«ZERC 

190 DO 200 J*u«M 

200 200 SU*1aSUM-Y ( I .J) 

210 Y(I*UsSUM 

220 210 Y(L,I)aSUH 

230 SUMaZERO 

240 DO 220 lautM 

250 DO 220 Jau,M 

260 220 SUHaSUM^-Y ( I fj) 

270 Y(L»U)aSU.'- 

280 * this MEXT step of ZERCI'-JG 30RDEP IS MOT NECESSARY 

290 CALL C.MTZRO<Y,t_%L»NOI^2Y) 

300 * REDUCTION OF 2 

310 ♦ EXTRACT Z22 AMD 212 AMD PLACE IM SAl AND SA2 RESPECTIVELY 

320 DO 320 JaltK 

330 jPMaj*fj 

340 DO 300 lalfK 

350 300 SmK IfJ)8Z(l4..M,jP%] 

360 DO 310 lal.N 

370 310 SA2{I«jjsZ(NJPN) 

380 320 CONTINUE 

390 * NEXT INVERT Z22 USING SAl AND COMOUTE D£;jaST*Z22 1 *S 

400 call C.MTINV<SAl.K»K»NOI;:fW)CAREA) 

410 DENaZERO 

420 DO 330 lal.K 

430 DO 330 Jal«K 

440 330 0£NaSUH<»SAl(I*K) 

450 * next compute Z12*Z22I (MXM- t) ANO SAVE IN SA3, WILL THEN NO 

460 * LONGER NEED Z22I«SAl SO THAT SAl WILL BECOME SCRATCH 

470 CALL CMTMPY<SA2«SAI»SA3*N,X,K.N0I«) 

480 • NOW SA3aZl2*222N SAl IS SCRATCH* SA2»Z12 

490 * NEXT COMPUTE SAlaZi2*Z22I*Zl2TaSA3#Z12TaSA3*SA2T 
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500 

510 

520 

530 

5<»0 

550 

560 

570 

580 

590 

600 

610 

620 

630 

650 

660 

670 

680 

681 

690 

700 

710 

720 

7a0 

750 

760 

770 

780 

790 

800 


CALL C !T'’PT ( SA3»SA2 »SA1 ) 

« ':C'« 5AU2l2*i22I*:i2T, iA?»2 12*222 r . 3A2 IS SCRATCH 

* '.£XT CO*-’PuTE 2U-212*;22I*212T A,‘ir 00 IN PLACE 
00 350 Ial»r 

00 350 

350 2( I .J) aZ ( I . j) -SA I < I ,w) 

* SAl ^.iC SA2 APf SCRATCH. RO>FH?,ER SA3»212*222I 

* >EXT COfPuTt SAiaZi2*222t*S« IE SAi BECOMES AN NX I VECTOR 
00 370 ral,,i 

SU.'iaZSp.C 
C'O 360 

360 SUHa5JM«5A3 { I ,J> 

37C SAI ( I ,1) aSL'* 

* MO.v SA laZl2*Z221*5 AO N-VECTOP. SA2 AND SA3 AS£ SCRATCH 

* NEXT Cnr-PUTE SAZa2l2*Z22I*5*ST*222I*2l2TaSAl*SAlT 
call C.‘T IPT (SAI »SAl ,SA2, I ,N,M,Mr>IH) 

* NOW FCRH ZUE» PENEvbeRIiNG Zl 1-Z12*Z22I*Z12T HAS ALREADY 

* EEEN DONE. ALSO SA I azi2*Z22 I*S AN N-VECTOR* 

* Sm2*212*222I*5*ST*Z22I*212T AND SA3 IS SCRATCH 

DO ‘♦ZO Ial»N 

DO <*0C Jal«r; 

AOO 2( ! »vi) aZ( I »J) »SA2 (I »J) /DE.'t 

* *!C>( fillii'jG in penaini.ng partitions 
2(I.L)aSAl(la)/0EM 

A20 2(LW ) aS( I .1.) 

2(L.l) aZO:.E/OtN 

* ZcHut' C oOROER 

CALL C''T2?0 (Z.L.Lv'.DI.''ZY) 

RET JR N 
END 
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NOTE: This Progm Has Not Bean Debugged and Is Not Operational. 


0001*# RU ;H s'.euAEJi^3{i'uI2«O:5t:s35i<)Ll3RAin3;Lir^APY/r-15L.R;Lr0RA«Y/OLOTSUI8*fl 

LOOO * ’■HI 5 P'50G.AA.'i SELVES TO COMSOUDATP SpPERATE wEUTRAL 

1010 * C3:;0^CTCAS ASSOC I A TEC .^TH T'-CIVIDUAL ‘JNOERQROUflC 

1020 * PO.'-EP CA'iLtS I iTC ELECTRICALLY EGUP/ALSriT SINGuE NEUTRAL 

1030 * CC OL'CTCP Af;AL“CruS TO THE SITUATICN FOUfiO IV OPEN WIRE 

lOAO * OVEnsEAD CCNDUCTCPS.THIS PPQGPa.v USES IHPEDANCE A.VD " 

1050 * AD-^ITTA:iCE OATA I'. iji'-lT OF CK- S/":ETER AMO hhOS/METER 

1060 * calculated FC.^ HUFJED CAOLE 'Y USE OF THE PPA EMTP 

1070 * Cm3LE C'-,.STA!'<TS DPT I 


1080 ♦ 
lORO * 
IlOO ♦ 
lllO * 
1120 ♦ 
1130 * 
1140 * 
1150 * 
1160 * 
1170 * 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 * 
1280 
1281 
1290 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1410 


IN CALCULATIOr; PtFFO»”EO t3Y Th£ THE ELECTRICAL 

EQUIVALE.»T 'NEUTRAL CO'-CUCTOR IS .0? ASSUMED TO SE AT 
GROUND potential THUS RETAI'ilfG THE FVIjIVALEMT NEUTRAL 
AS A.\ 'EXPLICIT* CO.MCUCTOR. 

THIS POOORAP IS EQUIPPED TO SUPPLY THE 
PROPER 2 AND Y ><AT?ICES FOR EITHER 1,2 OR 3 PHASE CASE BY 
the PPQPER EXTRACTION AND PAMPULATION OF THE ELEMENTS OF 
THE 6 BY 6 impedance AmD ADMITTANCE MATRICES SUPPLIED 3Y 
the P.P.A, PKOGRAM 
WRITTE.N 3Y RICHARD WCODINQ 
IC FORMAT (V) 

20 format (14, 10 15) 

30 FORMATC I4»1X,IPE15,8, 1X,E15.3) 

40 F0PWAT(I4) 

:NFNs<?g<;<; 

data lUIN/11/,LU0U/12/ 
character *9 ROW , If PEO ♦ ADM I T 
CHARACTER*9 Ii'iFlL£,CUTFlL£ 

CQ'-'PLEX CC , CM I ♦ CM2 ,C'"‘ 3 , C'u , Z.v‘no5 , Z^op j, 

CATAZ IS THE riPEOAMCE MATRIX, OATAY IS THE ADMITTANCE MATRIX 
Olf^E'NSIOr; 0ATA(24,6) ,CATA2(6<6) ,CATAY(6«6) ,ZM0D(4) ,ZM006(4) , 

6 0AT22(6»6) ,DATY2(6,6) ,DAVZ3(6»6) 

complex DATAZ»CATAY,ZM0D,01 ,02»Q3»0ATZ2»DATY2»0ATZ3 
DiMENSIOi' DENT (7) 

PRINT, 'IF THE MANUAL ENTRY MODE IS DESIRED ENTER A 1,IF NOT CR* 
R£A0,MPP0DE 
110 CONTINUE 

IFC->P* 0C£.EQ.1)G0 TO 97 

PRINT, 'e‘.TEP THE NAI'E 'jF THE C'"'MPLFX DATA FILE FOLLOWED BY I* 
REac.INFIlE 

call 0FE'.F(lUI:u1NFIlE,IsTAT,3.0, 1) 

97 PRINT, 'ENTER THE NAVE OF THE OUTPUT FILE FOLLOWED QY A I * 
REAO,OUTFIlE 

call OPciiF(LUOU,OUTFrL£,ISTAT,3,0,O) 

IF(f»PMCDE.EO*l) GO TO <58 

REaO(LUI:4,.10«E'1D«999) \PR1.M0CASE»-*PC,* FGC.NCC,MTPC.NTOT,NPHSET,NSP,NSn 

6 nEUF 


1420 R£ao(llin»io)lnumo, imped 

1430 PRINT, 'LTYPF case DATA* 

1<,40 PR I NT ,NPR 1 ,NOCASE » '=RC » ^'FQC ,NCC .NTPC * NY 0 T,NPHSET ,NSP ,NSN ,NEUF 
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1450 

1460 

1470 

L4S0 

l4'i0 

1500 

1510 

1520 

1530 

L5A0 

1550 

1-555 

1560 

1570 

I5fi0 

1590 

1600 

1610 

1620 

1630 

16A-0 

1650 

1660 

1670 

I6d0 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

18o0 

1890 

1900 

1910 

1920 

1930 

1940 

1950 


PWr4T,'TVPE A C® >• 

Re6?».-,c-N 

IF(..C-i<.£>j.0)GCTi'9C 

9- PWI-T,tr T?(- -r;,.iFlc' D^TA CASE* 

1 «-.CC-Sr:». :5C» :POC» :CC»' TPC *f TOT . iPHSET».'lSP »NSN »MEOF 
P!'T T, • IFIEL CASE " a’A’ 

?PI ST, ,PP I » .OCASE* "C». F'.'C.'1CC»= ■^PC'f TrjT»:iPH5eT«N5P»:'’SN,MEUF 
T, 'TYPE C9 IF -.<« * 

REiO,-;Cr.< 

I^( <C.^<.£C.O) riOTcao 
lF( ;c:-<.' E.oiGuTj’sc 
9-‘ CO'.TI' oE 

. IFC-P C:c.€C.l) CC T1 500* 

LI .Xsl 

ISO 1 = 1,11,2 

PEAOCllT- ♦10)L..U'U,P0‘. , OATAd ,J) , 0 = 1,6) 

PEAO (Lcl\, 1C) U.'.U -’2, 0.4TA ( I ,.1 ,J) ,J=l ,6) 

READ (LL'i: , lC)LriU‘l3,uO*:F 
pea:* (LJI'' , 10)l;)UM4 

OlOC co»!Ti.;ue 

READ ( LU I , 1 G ) Lt'.UNO , AO.-- 1 T 
DC 101 1=13,23,2 

READ (LL ir., 10) L.•.U^n ,R0*.. , (DATA ( I ,J) ,0 = 1 ,6) 

READ (LL'I.'.T 10) ui.U*i2, (DATA (1*1 ,0) ,j = i ,6) 

READ ( lL I s , 10 ) u; iU.--<3 ,L D^c 
READ(LLI lfl)LI.Ui-’-4 

101 co^tlmue 

500 COMTI.SUE 

IF{:npMC>£,-£,i) ^0 TO 102 
PRIM,'Er.TER RCC* 

PE.AD,Oc'!T( 1) 

PR PIT, *E* TER Ri-si* 

READ , 0 r T ( 2 ) 

PRI.4T, 'ESTER XCC* 

READ, Dc TO) 

PRI.'iT,»E'TER X.C,' 

READ,OE .T(4) 

PRINT, 'ESTER 
READ,0£‘T(5) 

?RI'«T,*ErTER XAE' 

REA0,0EiiT{6) 

PRI.-;'*',*E.'Tfr xcs' 

?.ead,oe:t(7) 

PRINT, 'E'lTER YCC 
READ, 0£fT(6) 

PRINT.'EITEP 

READ„DE.ST(9) 

J=1 
<1 = 1 
< 2=2 
<3=3 

DO 41 1=1,11,2 
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L9o0 


n«i*i 

1970 


Data ( 1 ,j) 3Cc;.‘<7{nI) 

191*0 


JATA ( l,j) aCE'i7(<3) 

1990 


J»j* 1 

iOUO 


rPd.ED.53 

2010 


IPd.cC.53 :x3»<i-l 

2020 

41 

CC-;t[ 

2<'25 


J»2 

2030 


DO *»3 I 5 1 .<J .2 

2050 


data ( I ,J) ®CEN7(5) 

20ft0 


rAaI*i 

2070 


DATA ( li.J) aOE‘ T(63 

2CdO 


I'23 I *2 

2090 



2100 


OATA ( I - ,J&) Ti5) 

2110 


IC*I3^1 

2120 


DATA ( IC.J03 *CEf!T(^ > 

2130 


JSJTI 

2140 

43 

COsTl;;'JE 

2145 


J*3 

2150 


00 -V5 I *1.7. 2 

2170 


data d . J3 »0£flT C 53 

2180 


IE«l*l 

2165 


data ( Ic.J3 sDENT (6) 

2190 


je»j-2 

2195 


IZ*I»A 

2200 


data ( I2.JC3 *OE^.T(5) 

2210 


IPalZ^l 

2220 


OATA (IF.JE3 *0EM(6) 

2230 


J*J*1 

22h0 

45 

co.vrr.ijE 

22**5 


J*4 

2250 


00 V7 1*1. 5, 2 

2270 


OATA ( I ,j3 *0EDT(53 

2260 


l£*I*l 

2290 


OAT^ ( re.j3 *0 £';t (7) 

2300 


iGa I ♦<) 

2310 


Jpaj-3 

2320 


data (I0.JF3 *CEM(53 

2330 



2340 


DATAdH.jF3aC£NT(7) 

2350 


JSJTI 

2360 

47 

COnTIiIUE 

2365 


J*5 

2370 


OJ <.9 1*1.3. 2 

2390 


DATA ( I ,J3 *OENT(53 

2<»00 


IP*I*l 

2410 


OATAdP,J3*OENT(63 

2420 


10*1 

2430 


JOaj-4 

24^0 


0ATAdQ.j03 aOENTCS) 

2450 


I9*n*l 


1-39 



original page is 
OF POOR QUALITY 


IS EUR ED S3 


PAGE A 


2 ao 0 
2 a 70 
2AftO 
2A‘iu 
2500 
2510 
2520 
2530 
25^0 
2550 
2560 
2570 
2575 
2580 
2600 
2610 
2620 
2630 
26A0 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
27A0 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
28A0 
2850 * 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
29^0 
2950 * 
2960 
2970 


0"'TA( In «I'J)5CE"-7 (6) 

jaj*L 
-O C'-' :.TI 

0AT-«( 1,6) sO£-T(5) 
data (2,6) sDE'iT (^ ) 

?ATA(1I,L)sC£ .7(5) 

DAta(12,1)sOE'.'^(o) 
i)G 51 lsl3,2't 
D-O 52 J=l«6 

OATn ( I ,J) 

52 

51 co.-^r;u£ 

jai 

00 53 IsIA,ih,2 

C'ATA ( I ,j) sUATA ( 1 ,J) *OE,' T (8) 

Jsj-ol 

53 C?f 7i.,ot 
•lX0s4 

DO 55 Isl‘»,l8,2 

OATm ( I , XD) sOATA ( I ,.'.XL') -OE'<T f 8 ) 

MX0=‘.XC*1 

55 C0r;Tir-'JE 
MX0=l 

DO 55 Is20,2A,2 

DATA ( I , 'XD) sOATA ( I ,'«'XC ) -OE.:T (3) 

VXDsyxc.*! 

56 CO.jTMUE 
MXD=4 

00 57 Is20,2A,2 

OATAU , 'XD)sOATA( I ,0X0) ♦CE'.7(9) 

MXD=MXC*1 

57 CO''TIr.U£ 

102 'TYPE A 1 TC GYPaSS 7-iis CASE* 

READv.FASS 

IPrtPASS.ECl.DGiDTCllO 

PRIM, *E;;TEr. the Mt..'*3EP OP PHASE CA9LE5* 

READ,. PHASE 
N0CsMPhASE*2 
111 HPRUIOIJ 

HERE the CO*’PlEX 6X6 HaTPIX IS READ PROM THE DATA FILE 
DO 120 1*1,6 
DO 130 Jsl,b 
IP3(2^I)-1 
IUs(2*I) 

RCI=DATA( I?,j) 

RCZsCATAC 10 « J ) 

OATAZ( I ,J)sCl»PLX(RCl ,fiC2) 

13(^ CONTI.'iUE 
120 C0\TI lUE 

‘!0W FORM THE COMPLEX 6Xb Y MATRIX 
DO 140 lsl,6 
DO 150 J=l,6 
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NEUREDS3 PAGE 5 

2980 <Pa ( ( (2*[ ) -I ) *12) 

2990 Kls ( t;*l } *L2) 

3000 jATAY ( I ,j) sC,-.Pl,< (CmTA (YP ♦J) ,CATA (n' ,J) ) 

3010 150 CQMI 'UE 

3020 ivo CQI-.TI..JE 

9999 call ‘E‘ji'tC(jATAY«i’A‘^A2**^»^«6»iAl»Si''2»SA3»'"'t^A®EA«2f^»o) 

9999 DO Ui 1*1,6 

9999 DO 142 jal,6 

9999 OWI.‘-4T,DaTAZ( I ,j) 

9999 ?9INT,J«rAY ( I , j) 

9999 142 CONTINUE 

9999 141 CO’'(TI..lE 

3030 IF(\PhA5E.EO.2)G0TC205 

3040 I P (f.PwASE.ED. 1 ) oOTC.270 

3050 * “!0.\ FOP’t ;Ht COEFFICE'IT TC ALL THE M'JOIFIFPS 

3060 Qla(DATAZ(5»6) *DATAI ( 4 ,4 ) AT AZ ( 4 . 5 ) -DAT AZ ( 4 , 6 ) ) 

3070 02s( (2»DATAZ (4,4) ) - ( 2*0ATAZ ( 4 » 5 ) ) ) 

3080 Q3s( (2»DATAZC4,4 ) ) -(Z^TAtaZ (4,6) ) ) 

3090 CCs( (Q2)>G3)-(Gl)#42) 

3100 * CO: !-0n ElEHE^.TS Iu each hcoIFIEP are formed 

3110 * ^3* FORH THE WCCIFIEOS 

3120 DO IfcC Islf4 

3130 DO 170 jsl»4 

3140 CM1*( ( (3ATAZ(I»5)-GATAZ(I»4) )/CC)*( ( ( DAT AZ ( J »6 ) -CAT 

3150 6 AZ(J,4) )*G1)-{DATaZ(J«5)-DATAZ(J»4) )4G3) ) 

3160 CM2*( ( (C:AT«Z( I «6)-CATAZ( I i4) ) /CC) ♦( ( ( OATAZ ( J » 5 ) -OAT 

3170 6 A2(J»4) )*01)-([.\tTAZ{J»6)-CATAZ(j.4) )*G2) ) 

3180 DATZ3 ( UJ) sOATAZ ( I .J) ♦ KM1*CH2) 

3190 170 CONTINUE 

3200 160 CU'iTtNUE 

3210 * .-.C.i FCR:i THE ■•OOIFIED Y MATRIX 

3220 00 165 1*1.3 

3230 DO U6 jal.3 

3240 DATY2(I,j)sC.VTaY(I.j> 

3250 166 CD*-iTi:.L'£ 

3260 165 COA'TI lUE 

32T0 DO 190 1*1.3 

3280 0ATY2 ( i .4) sCATAY ( I ,4) ♦CATAY ( I ,5) -.CATAY ( I .6) 

3290 190 CO'lTir'jc 

3300 DO 200 <*1.3 

3310 DATY2(4.K)*0mTAY(K,4) ♦' ATAY (K ,5) ♦DATAY (X .6) 

3320 200 CCMTIMUE 

3330 DATYZ ( 4 ,*.) * (DATAY{4,4) ♦ ( 2*HAT AY ( 4 , 5 ) ) ♦ (2*DATAY (4.6) ) -.DATAY (5,5) 

3340 & ♦(24D'ATAY(5,6) )*rATAY(6.6) ) 

3350 205 NHMs.DPMASE*! 

3360 DO 206 1*1.2 

3370 DATZ2(I.3)*0ATaZ(I.4) 

3380 DATZ2(3.I)sCATAZ(4,I) 

3390 206 CONTINUE 

3400 0ATZ2(3..4)*0ATaZ(4,5) 

3410 DO 207 J*l«2 

3420 0ATZ2(J«4) a04TAZ(J.5) 
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3A-30 

3440 

3450 

3460 

34.70 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3360 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 


0ATZ2(4,J) sQATAZ(5.J) 

207 CCNTIr.U' 

DATZ2(4.3)3CATAZ(5.4) 

0ATZ2(3.3) sC4-^mZ(4,4) 

DATZ2 (4,4) sCATAZ(5,5) 

DO 20a IsUZ 

datz 2.( r »i ) sOmtaz( I » I ) 

20 ■> C0') Ti :,JE 

DATZ2(1»2)s0aTAZ(1.2) 

0ATZ2(2. D sCATaZ(2»1> 

I P ( . A .. .E.2 ) (3CTD2 70 
DO 215 i = i..';Pf- 
DO 216 jaU-lP*-* 

C^3={ (DATZ2 ( I .4>-0-TZ2 (I .3) ) * ( DATZ2 ( J » 3 ) -OATZ2 ( J «4) ) ) 

C;'%s( ( (ZttCATZ2 (3»4) )-(rNATZ2(3.3) ) - (DATZ2 (4»4) ) ) ) 
Z'lC05s-(C‘-'3/C‘^4) 

0ATZ3 ( I »J) SCATZ2 ( I « J) ♦Z‘’OC5 
216 COfiTI.vUE 
215 CQ^TIilUE 

DATYZ ( I .1) sDATAY (1,1) 

OATY2(1,2)sOATAY(1,2) 

r>ATY2(2»l)sOATAY(2»l) 

OATY2(2,2)sOATAY(2,2) 

DATY2 (1,3) sDATAY (1,4) i-OATAY (1,5) 

DATY2 (2»3) aOATAY (2,4) *DATAY (2 ,5) 

00 221 I = U2 

DATY2 ( 3,1) S13ATAY (4, I ) ♦OATAY (5 , 1 ) 

221 CONTINUE 

DATY2(3,3) s (DATAY(4,4) ♦OATAY ( 5 , 5 ) ■► ( 2*0ATA Y ( 4 , 5 ) ) ) 

♦ MOW asite the output file 

270 WRITE(LUCU,20) '!P=.l , NOCASE «^-PC,‘'FCC,f :CC, NTPC, :iT0T,NPH5ET »''^SP 
6 ,NSN,NEUF 

IF(i\PMA3£,Ea.2)GOTu40n 
NP‘-'s;.PHA5Ep1 

IF(r,PHAS£.En.l)0ATZ3 ( U 1 ) sOATAZ ( 1 , 1 ) 

IFC;OsAS£.£C. 1)0ATZ3 (2,l)=CATAZ ( 4 , 1 ) 

IF(NPwASE.cC.l) DATZ3 ( I , 2 ) =CATAZ( 1 , 4 ) 

IF(NPhAS£.EC.1)DATZ3 (2,2)sOATA2(4,4) 

I P ( MPHASC.EC. 1 ) 0ATY2 (1,1) sDATAY (1,1) 
IF(MPHAS£.E0.1)0ATY2(1,2)sDATAY(1,4) 

IP ( NPHASE. ED. DDATY2 (2,1) SDATAY (4,1) 
IP(N?HA5E.cC.U0aTY2(2,2) sOATAY (4,.,) 

00 210 KsUi'lPM 

00 220 LsUfiP'N 
,nPP Isf.PP 1*10 

W» I TE ( LUOO , 30 ) NPR 1 , CATZ3 ( )'. ,L ) 

220 CONTINUE 
210 CONTlftUE 
40C NSsl 

IF(NPHA3E..‘!E.2)GCTC430 
DO 410l5l.f:PM 
DO 420 JsUNPM 
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3P50 
3960 
3970 
3960 
3990 
4000 
4010 
<»020 
AO 30 
AOaO 
4050 
4060 
4070 
4060 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
020 
030 * 
040 ♦ 
050 » 
060 ♦ 
070 
080 
090 
100 
11 ') 
120 * 
130 
140 
150 
160 * 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 * 
290 
300 * 
310 * 
320 


‘•.P«l*MPPl*lO 

^>^ITc(L'v!^U, 30) 'iP91 ‘OATZB ( I »J) 

42 ' CO'-.TIM'E 
4l- 

43c 1.7a 1 

U'D 230 ^sU^.P»' 

DO 24C Lsl,vP'- 
ls.i?^l*lO 

I TE ( LULL' , 1 0 ) .':PP I .C ATY2 ( < 

24- C'J’TI. uE 
23 CDU'^r.LE 

■(■PITE<L'jCL«40) .‘.F 'I 

P«I.\T,*TYP£ A 1 TO PROCESS A 'irv. I-Pl'T FILE* 

KEAC»I 

CALw DETaCH(LJI..»I57AT,) 
call idETaCh (LUClU iSTATt ) 

IF(I,£C,l)5CT0ll0 

280 P9I\T,'ST0P OF EXECUTION NORMAL' 

999 PHI\T«*£^.C OF DATA FILE' 

STOP 

E'lO 

SUbPOUTI?E NEuRED(Y,2^M.M,MDrM2Y*$Al»SA2*SA3»WKAREA»NW,NOIM) 
THIS SU?R0UTIME COMPUTES A MEi TRAL FEDUCTION PROCEDURE 
USING A generalized MATRIX APPROACH DEVELOPED 3Y P.RUSTAY 
NOTE that the results ARE RETURNED IN Z AND Y WITH ZEROED 
HORDERS. THUS original Z»Y, ARE DESTROYED 
complex SAl (N0IH,NDIM) ,Y (NDIMZY»N0IMZY) .SA3 (NDIM»NDIM) 

COMPLEX SA2(N0IM,m0IM) .Z (NDIMZY .NOIMZY) 

COMPLEX SUM ♦ZERO tZONEfOEN 

DIMENSION wkaREA (NW) 

data ZERO/ (0. ♦0.) /fZONE/ ( l.^O*) / 

IF there IS UO NEED FOR CCSPUTATlON 

IF £ 0 . (r:*l) )RETUR:: 

LsN^i 
k' ri9— 

REDUCTION OF Y 
DO 210 Isl»N 
bUMaZERQ 
UO 200 JSL»'* 

200 SUMaSU-cY( I ,J) 

Y(U».)sSUM 
210 YCL^naS'Jf 
SUMaZcRO 
DO 223 I*L»M 
DO 220 J*L«H 
220 SUMaS-JM^YI I ,J) 

Y (LfL) aSUH 

THIS NEXT STEP OF ZEROING BORDER IS NOT NECESSARY 
CALL CMTZRO(YtLfL«NDIMZY) 

REDUCTION OF Z 

EXTRACT 222 ANJ Zl2 AMO PLACE IN SAl AND SA2 RESPECTIVELY 
DO 320 JaltK 
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330 

340 

350 300 

360 

370 310 

3RU 320 
390 * 

400 

4L0 

420 

<»30 

440 330 

450 » 

460 * 

470 
480 ♦ 

490 * 

500 
510 * 

520 * 

530 

540 

550 350 

560 4 
570 * 

580 

590 

600 

610 360 

620 370 

630 *■ 

650 ♦ 

660 
670 * 

680 * 

681 * 

690 

700 

710 «»00 

720 * 

740 

750 420 

760 

770 * 

780 

790 

800 


DO 300 lalfK 
SAl(I*J]s2(UN*JPN) 

DO 310 Ial*N 
SA2 ( I , J) »Z < I .JPM) 

C0'iTI,:ij£ 

• £XT I fVtPT Z22 USING SAl Af;D COMPUTE DEiNaST#222 1 *S 
c:'Trv.v < SmI .< .< .wk AREA) 

I’fi'laZERO 

DO 330 Isi,< 

DO 330 J*l.< 

D£‘)»S0M^5A i ( I .'4 ) 

NEXT CO.iPUTE Z12*Z22I ('‘XM-!) A.lD SmVE Ih SA3. WILL THEN NO 
longer ;iEeO Z22IaSAl 30 THAT SAl '.-.'ILL 3EC0ME SCRATCH 
CALu C-’TMPY(5A2»5AL,SA3..N,K 

NOW SA3aZ12»222I ♦ SAl IS SCRATCH, 3A2s2l2 
NEXT COMPUTE SAla2l2*222I*Z12TaSA34Zl2TaSA3*5A2T 
call CMTMPT(5A3»SA2,5AI ,X,N,,‘UN0IM) 

NOW SA1»Z12*222I*Z12T, SA3aZl2*Z22 1 , SA2 IS SCRATCH 
NEXT COMPUTE Z1 1-Z12*222 I *Z12T AND DO IN PLACE 
DO 350 IsI«N 
DO 350 Jal»N 
Z(I*J)8Z(I,J)-SA1(I,J) 

NOW SAl AND 5A2 ARE SCRATCH. REMEMBER SA3s212*Z22I 
NEXT COMPUTE 5AlaZl24222 I*S, IE .')A1 BECOMES AN NXl VECTOR 
DO 370 I*I.N 
SUMaZERO 
00 360 JsL«K 
SUMaSUM^SA3(I,J) 

SAl ( I .1) aSUM 

NOW SAlaZ12»Z22I*S AN N-VECTOR. SA2 AND SA3 ARE SCRATCH 
NEXT compute SA2=2l2*Z22I*S4ST*222I*Zl2TaSAl4SAlT 
CALL CMTMPT(SA1,SA1,SA2,1.N,N,N0IM) 

now FORM ZllEt REMEMI3ERING 211-212*2221*2127 HAS ALREADY 
BEEn CONE. Also SAiaZl2*222I*S AM N-VECTOR , 
SA2 s 212»222I*S*5T*222I*Z12T AMD SA3 IS SCRATCH 
DO 420 lai.i; 

DO 400 JaLt.l 

Z( UJ) aZ( I ♦J)*SA2( I »J) /Dc.'l 

now filling I’l RE'ui-iriG partitions 

Z(I.L)aSAKI,l) /DEN 
Z(L.I) aS(I »U 
Z(L,L) aZOftt/OEN 

ZEROING BORDER 
call CMTZROd.u.L.nOI'IZY) 

RETURN 

END 
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010 * T’-iI 3 P'vjGnA:>; ?LACS ascii CIST5I5UTI^'J fiST'YORK CONFIGURATION DATA 

020 * files h RSmRRA''GE5 Th?I3 F OR IAT P<?FSEMATIG.*!. 

030 * iELJ"/ IS If. E/PLA.'.ATIO'i CF A6"RFVI ATlC.‘iS USED TO REPRESENT 

040 ♦ the .iCT'.ORK CO-iFIGLRA-^ir*’ jaTA I?-. TUE «EAO 6 .yRITE STATEMENTS 

050 * OF THIS P’CGRA*.'., 

060 * IlI..3LI-'£’ ‘.J I-EP fro- ^rTv.nPK COr<I'!G FORM OSEO IM PEAO STATEMENT 

070 * .•;00£s,‘.ET.YOr’K lODE f.U'iLE:’ 

080 * IPARsr.£TWOr< PARENT ^■COE 

090 * IlSi.slEFT sun jF NETH.-'-kK P.AF.E; T NODE 

100 * IPSNaRIGHT SO;-: OF ;.ET.^ORK PAREi^T ‘ODE 

uo * lLCDsi.Er.^CRN .'inOE LEfiG^H CODE 

120 ♦ lOHrisCH? CODE 

130 * ITTYsTPAiMSFORf-'ER TYRE CODE 

160 * IPHSsPHASE CO.MNECTIUr. COOF 

150 * NStRsNUAiL-ER CF ELECTRIC SFRVICES ASSOCIATED WITH A NODE 

160 * iprlspsinafy load code 

170 » I.NGDsNEUTRAL = GROO'lD AuMlTTA.' CE CODE 

ISO * Ll\£af;£’, .'••£T«GRK DmTA LINE NU'EFRS GENERATED 3Y THIS PROGRAM 

190 character r,FlLE»9T0UFlLE*R 

200 data iaH''i/4 / ♦lijIn / IP / »luolv 1 1 / .ltyp/ imoooc/ « ingd/O/ 

210 data ImFIlE/'MT^KIMCJ. {•/♦CUFIlE/’DNaKPIOI;*/ 

220 10 PORHAT(V) 

230 11 format ( I4,4I5»IX. 14, LX, 715) 

260 12 FORMAT ('0001 KGCE IP-R ILSM IRS- LTYP 

250 »ILCD ICHW ITTY I?HS .jSER IPRL INGO') 

260 call NASTPK 

270 130 PRINT, • I.NFlL£,OUFILEa» » I iFILEf • * ,OUFIlE 

280 PRINT, »IF OK TYPE C:^ • 

290 READ, I 

300 IF( I.£0.0)GCTQ150 

310 PPINT,*TY?£ -lAME OF MFlLE^O'JFtLE, EACH FOLLOWED BY ?• 

320 !t£AO , I ixF I lE tOUF I l£ 

330 G0T0130 

360 150 continue 

350 call ope iF(LUri,I*iFlLE»I5TAT,3.0,l) 

360 IF( I5fAT.EO.O)GOTOl60 

370 lF(ISTAT.FQ*5)Pqi:iT.I,NFIL£,»0CES "OT EXIST 

380 STOP G16C 

390 160 CALL OPE .F (L'JOU,OUFIlE, I STAT) 

600 IF( ISTAT.EG,0)G0T02c;r 

610 IF(ISTAT,..t.O)PSt yT , • I S'I’ATa • , I STAT 

620 IF( I STaT.EO. 5) PR Ir!7,0'JFILET ISTATa* ,ISTAT 

630 STOP 03CO 

660 200 LlNEalOOC 

650 HRITE(LL'3U»L2) 

660 REA0(LUI\»10) ILIN,NCCE 

670 .<R 1 TE ( LUO'J * 1 1 ) L I .'IE » NODE 

480 LINE3L1TE-1 

490 210 COMTI'iUE 
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500 seA0(L Jl .aG,E*iC*9'90) lLlf;,NODE.IPAR ♦ ILSN ♦ ISSi4 tUTYP ♦ ILCD » lOHM * 

510 6 ITTY,IPUs,,;SER»IPRL»If;GO 

520 WRITE (Lu'U't ♦ U)Li:.£v. COE* IkAR. IL5N» irSf.LTYP, ILCD« I0HM» 

530 6 rTY,IPHS.^:SEP»IPPL,^JGD 

5<»0 £•! 

550 r,GTG2lo 

560 990 CAUL GET '‘.CH ( LU I r! . I STA^ , ) 

570 call :GTaCH(l'JCU. isra^.i 

580 P=?I-:T,Gi.'FIlE.* CJ ^'^lETE* 

590 IJRI-T, irrvpv^ FI^st a I JOTATIOf: ‘■’«tCC'PD BEFOPE USE* 

600 STOP 

610 E'tO 
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00ni0*« =f;r.:K Ar,H<»(iJLlfj,CCPEs40<) LIPr?/\PY4;USPAHY/IMSL»R? 

00020*<< LIi'.i<A(?Y/'jLr'TbLlt3»s^ Si. I f'’ ARY/ZETA »H 

00030 * T-IS IS A VERSlOr UF ‘lT'..<A’‘i5l wHlCH L'iCLUDES THE 

00040 » Sui^POoTlNE ZPuCTM, HF.SUPE TO PEDEFPJF NDJPlT U. DATA 

00050 ♦ STATEf-£'<T TO COPWFSPO.iD TO ANY CHANGE IN DIMENSION UF XA 

00060 ♦ THL ROOT P-CCj^A^' HAS ‘JEF CHANGED 

00070 * TO Ii.ClUOL CODE TO SET UP PAPAPCTERS Af4D CALL THE SU53- 

00080 ♦ ROUTI; E. THE SutROUTpir ITSELF HAS b£E‘» ADDED TO 

00090 » LIPPARY 4 , USE J,J,FlECM/C TO MOTF ALL DIFFERENCES. 

OOlOO * 

OOliO * THIS VERSION DY RCP INCLUDES SINGLE PHASE RATIO BANK 

C0120 * transformer logic and a P.EVISFC procedure for CALCULATING 

00130 * TRAfSFOSITlOf.S AID TRANS I ST I ONS 

00140 • THIS program a. ALYZeS AND DETERMINES VOLTAGES AND CURRENTS 

00150 ♦ GIVEN the source PAPAMETEPS Af.D RESULTS OF APPROPRIATE NTWKERS 

00160 * PROGRAM CONTAINED IN APPROPRIATE FILE MT123456 

00170 * 

00180 * this version also differs from NTWKERSI in that several 

00190 * Ui*USEi> VARIAHlES have been removed from the code, the 

00200 * variables 'ZC. *niYLS». AND ’OIYZS* WEPF BASICALLY UN- 

00210 * USED AKD WERE THEREFORE REMOVED. 

00220 * 

00230 * the first SECTION ACCESSES PROPER NT123456 FILE 

00240 * 

00250 ♦ SEC THE END OF THIS LISTING FOR PROGRAM ORGANIZTION NOTES 

002(D * and NO^£NCLHTUR£ LIST 

00270 lOOf-0 FORMAT! 'THIS PROGRAM ANALYZES VOLTAGES AND CURRENTS*/ 

00280 A 'APPPOPPIATE NT FILE *‘U5T FE AVAILABLE IN DIRCCTCHY •/) 

00290 inOi'i FO»:iaT{*IF OK TYPE CP*) 

00300 lOOr-? FOR^'ATiZHNTtl?. 211. 12.ini) 

00310 10003 FORMaT(*FIlE *.A10.» NQT AVAILABLE ON LGU *,15/ 

00320 6 'DUE TO ERROR CONDITION *, 1 5/ • PROGRAM ABORTS') 

00330 IOOOh F0RMAT(//*FILE RR£A0 FRPOR ON *«I6»'FILE AT RECORD*. 15/ 

00340 6 • program ABORTS*) 

00350 IOO 05 FCRMAT(1HN,I2.2I I.I2.I I.IH;) 

00360 lOOOb FORMAT(V) 

00370 10007 FDR'-:aT( 'THE FOLLOv.ING PARAMETERS PEPTAIN TO THIS ANALYSIS*/ 

00380 6 * FRFCUEMCY COCEs'.iS/* TEMPERATURE CODE* * . 1 5/ • AS5UMPT ION •« 

00390 6 'CODES* »I5/* NETV-ORK IDENTIFICATION NUMflERs • . I 5/ 

00400 6 * PROCESSING OPTIONS* . 15/// 'NETWORK DESCRIPTION :*/) 

00410 10008 FQRm/VT ( 'SECTICN PARENT LSOfl RSON LEVEL LTYP LENGTH OHMCD •) 

00420 100)9 FORMAT! 15.18. 2I6.2I7. 18. 17) 

00430 10010 FORMAT! 'TYPE 1 TO SPECIFY A NEW SOURCE. TYPE 2 TO EVALUATE*/ 
00440 h *A MEW SECTIOfi USING EXISTING EXCITATION IMBEDDED IN FILE*) 

00450 lOOll F0RHAT!A50.I5/ !10I10) ) 

00460 10012 F0RMAT!A5C.I5/8!2X.E12.6) ) 

00470 10013 F0RMAT!//*WAHMNC - FREQUENCY SHIFT COMPUTATION USING *. 

00480 6 'LENGTH MOCIFICATIOM'/'MijlTIFICATICN FACTORs* .F9.6//) 

00490 10014 *^0RMAT!/ 'ENTER VOLTAGE SOURCE VECTOR AS *.I3.' COMPLEX NUMBERS*/ 
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00500 

00510 

00520 

00530 

005<»0 

00550 

00560 

00570 

00580 

005V0 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

ooetsc 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

OlOOO 

OlOlO 


p&Qlt 


ir • I.t. ’FAL ■ L SFPE'^MFD chmmas.*/) 

IOOL5 FS AT('C') YC"., T A -'rLTAGF SOU'^CE DHIVE'»'*) 

lOln^ f:-- ;:T ( / / A.,tf L' 5CuMcr ciic.‘'r';T vector as cc'*pl£x'» 

O • .j’lt'.'s cr.iL :u ■’■ifiEP 5 # SEPEf< ATED I’Y COMMAS'/) 

100 17 F-H’-AT ( / • ; ••£ THE ii. '>V!i YAlHF.S CQK-ECT ? •) 

lOOU FOT’AT ( / »£‘.Tt'; 'iCjFCF A?‘.'ITTA(Ct '-iTPIX AS ',13.' COMPLEX ». 

(, •Nu''‘-'tRS '/M.C. PCAL f:U:-''‘ER5«5EPEPATE0 0Y COF"^AS'/ 

6 'FOP C'^nVEillt^Cr YOU MAY ENTER '.I3»* LMES OF *,I3, 

6 • ‘It-L ^.U:•lbF^<5 EACH*/' A'OY OFDFP EATRIFS EXPECTED*/) 
loop) F09 ‘aT(/ 4(2X,L14,8M 

10020 FORvi;T(/*Er.TLF A CONCATENATED INTFGFR TO INDICATE OUTPUT*, 

6 * OPTIOl.S AS follows*/' I - OUTPijT VOLTAGE 6 I,‘iPUT CURRENT*/ 

6 *2 - •iORTOn SOURCE ApUTTANCF AMP CURRENT*/ *3 - INPUT*, 

6 * ADVITTAf:CE*/*4 - TOTAL LOAD ON SECT I ON * / * 5 - VOLTAGE TRANSFER’ « 

6 * MATRIX*/ *6 - Current oRive for unity voltage*/ 

6*7- overall voltage TRANSFER */ 

6 *9 - MAGiMTUDES OF OUTPUT VOLTAGES Af;D IMPEDANCE’ • 

6 • LEVELS, level WARMINGS AMD POWE.R*/’THE LAST OPTlOr4 WILL*. 

6 • after the FIRST PRirtTCUT, */ 'DISAPLF ALL OTHER OPTIONS’//) 

10021 format (/A50/ (8(2X,E12.6))) 

I0u22 format (A 50/ (4 (2X»El4.a) ) ) 

10023 F0RMAT(/A50/b (2X,E 12.6)) 

10024 FORMAT <// ‘FROM .NOW ON ONLY VOLTAGES AND POWER ARE ’« 

6 ’WPITTEN’/'ALL other PRINTOUTS HAVF NEEN SUPPRESSED’/ 

6 ’ SEC SIP PAR CUN disT /VI/ /V2/ /V3/ 2TR/MIN VF2F‘, 

6 • YIM'X YSIPMx Y.hOP'X SIE/* SIC/M POWER*/) 

10025 format (315,F8,1,3(1X.F7,L),1X,S‘7.2.2A2.3(1X,F7,2),2I5»1PEIA.4) 

10026 FORMAT!/' NREAD *,I5.* SECTION NUMOER ’,I3,’ LINE TYPE ’,15/ 

6 ' LCU '.I2»' JKECO ’,!?,* I APEC ».I5,’ N£CO ’*13/) 

10027 format ( 'ENTER SECTION (IUMPeR OF SECTION AT WHICH OUTPUT *, 

6 *IS DESIRED*) 

10028 format ( *SFCTIQN CHCSFN IS *,l6.’ IS THIS CORRECT?*) 

10029 FORMAT! • SECTION *,I3** WHICH YOU HAVE CHOSEN IS MOT IN * 

6 'NET..CRX **I4/) 

10030 FORMAT! • YOU HAVE FIThER FAILED TO DEFINE A SOURCE OR’/ 

6 *A PROCESS I IG error ON SECTION ’,I5*’ HAS TAKEN PLACE’/ 

6 • PROGRAM AbORTS*) 

10031 F0RMAT!/A50/!Hlrt) ) 

10032 FORMAT! /'DO YOU WANT CUT^-UT AT ANOTHER SECTION WITH SAME SOURCE?’) 

10033 FORMAT!/ ’CO YOU WANT THF EFFECTS OF LOAD PERTURBATION ’/ 

6 'OP A REVERSE PATH PROPOGATION ?♦) 

1003^ F0RMAT!/'D0 you WISH TO REANALYZE SAME NETWORK WITH A ’/ 

6 ’ different SOURCE ?’) 

10035 FORMAT!/’00 YOU W. SH TO ANALYZE Af.OTHER NETWORK ? ’) 

100:*' FORMAT! /’ENTER SCCTIOM AT WHICH LOAD CHANGE TAKES PLACE'/) 

10037 FORMAT! 'ENTER '''ORTON SOURCE CUPREHT VECTOR AS*/ 

6 15,* complex numbers*/) 

10038 format ( 'ENTER CHANGE I M NORTON ADMITTANCE AS*/ 

6 18,* COMPLEX numbers*/) 

10039 FORMATI/'IS THIS A REVERSE PATH PROROGATION ?») 

10040 format !/ 'ENTER CHANGE IN LOAD C L Y2 sYLNE’W-YLOLD AS* 

6 *15, 'COMPLEX NUPSERS* /’FOR COMVENIFNCE YOU MAY* 
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mazo 

0 LU 30 
01'' ‘•0 

0 lOftO 
OL070 
01080 
01090 
01 100 
OHIO 
01120 
0L130 

01 UO 
01 150 
OlUO 
01170 
OllfiO 
01190 
0 ‘ 200 
0 210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
C1320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 


•E ;TL='» .E5 .iH ' , I 3 . • Cr 'P lEX *.U.-"^ERS PACH») 


10;V.1 = - .'.T ( / • StC7! V *T /HlCh F.PPECT OF PeRTUfidAT 10^' IS ’ 

t, • » ' - r , ^ ; k. ', • ) 

i')u..- r r.oiCATFO pp.)ora--< a-ckts*) 

10U-.3 P'O^' -.T ( / • V! ■l'''/* '. tL r)’F('f. F CHAfiGE') 
lOU-^k. F09 ‘'aT ( / »C 3m.M(jF I , VO'.TaGFM 
100^5 FOK-'aT (/ ‘voltage after CHA'iGE') 

I00''.r. PO^‘’AT{/'On YOU y.A.-.T PESULT AT AIjGTHER SECTION?*) 

10U*.7 FOP :aT(/*DO TO'J >i;,\T ‘VtOTHEP PEPTURBEO LOAD?*) 

IMPLICIT CCfPLKX ( A-G«.i»S*T«V.Y,Z) 

Character, »9 '•opPL^fO'iUT 
character *8 jdate 
ChaRaCTL*^ *2 JVC)LT« JI.-PED 
Character *30 ixc^irc ITI 

DATA LrPPL/lO/LDCuT/12/ IHEAn/0/NPEPT/0/I3PAM/0/ 

DATA NC'PWL/i8C0/N5I2t/ lftOn/NDIPLT/2PO/NDIM/4/IALL/0/ 

OIHLnSIC. V50PCE(h> ,YIM(4,4) ♦Y2K (4.<k» , YLOAO (4«4) ♦YNOPPH (4,4) , 
t YTE|.;P(<»,4) , 

6 I'iLCSA( laoO»14) , If 5F.0V ( 1800) » AM 1 4 ) ,BH (4) »CH (4 ) ,D« (4) iVM (4 ) , 

6 CJDRIV (4) , 

s APHI (4,4) ,6PM I (4,4) ,CPHI (4,4) ,CP*'I (4,4) ,VTOPH (4,4) ,VPHIN(4) , 

(f VPHOUT (4) ,POV (20) , 

6 CUPlII (4) ,Ci!PHl (4) ,PPT ( 10) , 

6 WXAREA (200) ,CSl)ATA (4) , 

6 212(4,4) ,ZTOT (4,U) ,tUPTP (^) ,0LY2 (4,4) ,DELV2 (4) ,DFLV1 (4) , 

6 TTPAf;(4,4) ,YS1M. (4,4) , 

6 VTTCTL(4,4) ,VTT^'P(4,4» ,2IN(4,4) , YTEMP2 ( 4,4) ,CUREV(4) ,VSUM(4) , 

6 0ELV3 (4) ,YTErPl (4,4) , 

6 ZTEmP(4,4) ,YCUT (4,4) ,Y5CPPH(4,4) ,V0UTMP(4) ,CSPHI (4) ,XA (200,4) , 

5 YSDA^A(h,4) , 

6 lP«INT(9) ,ISTA< (1800) 

OAT A ZERO/ (0.0,0,0)/AC)E/(l,0,n.O)/ 

Call mastrk 
iTE-'^Psb 
I AS 1-4 
PVLIi-'sO.l 
PlLin=5C,0 
00 10 Isl,4 
YSOkCE ( I ) sAONE 
CSPhI ( I ) sAOiNE 
00 10 jal,4 
YSOATA ( I ,J) sZEPC 
10 CONTINUE 
20 WPlTE(42,i00O0) 

JAs 1 

NPFSsl 

IPRFlGsO 

IPLTFsO 

IPFlQsO 

NEC-*Xs4 

30 PPIfiT, ‘TEMPEP aTUhE =‘,ITEMP,* ASSUMPTION CODE=',IASN 
v«R I TE (06, lOOOl ) 
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0lb40 
01550 
01560 
01570 
OL5dO 
01500 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 ♦ 
01750 * 
01760 
01770 
01780 
01790 
01300 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
C1890 
01900 
01910 » 
01920 
01930 
01940 
01950 
01960 
01970 * 
01980 
01990 
02000 
02010 
02020 
02030 * 
02040 
02050 


ST 

I TluT.L, f.nT'jHn 

-'i- I Tr'H’’ r ,iSSj"DTir", crop - EACH 1 DICIT’ 

P,i-- 

jCT ')30 

‘♦n 1 ,T, COJ-r .MFTWOPV ID ho,. output file 

lUPT'i 

^91 :T,» IFCu'Jr, .lLL'-*lOPTf'=" . I FCODE . M DEiN . I OPTH 
'• P I T E ( 0 c » 1 0 1 j U 1 ) 

9EAD, ITFST 

IF { ITF. 5T ,H£,0) 007040 

poi\t,'TYPF CF TO LYPASS PLOTTING LOGIC* 

PEAH,IPFLG 

50 P«I.IT.»V0LT lI IIT =*,PVLr‘,* impedance llmit* ,PIlI^ 

•■^9 1 TE( 06.1000 1 ) 

pead.itest 

IF( ITE5T.£Q,0)GOT060 

PPInT. *ENTFr< voltage AfJD IMPEDANCE LIMITS* 

PEAD.PVLIM.PILIM 
GOTO 50 

next .me OPEM APPROOPIATE MT FlLr AND VERIFY ITS HEADER 
also open a seouehtial output file 
60 CALL NASTRK 

encode ( f'OPRL . 1 0002 ) I FCOtF ♦ 1000 , I TF^P , I ASM .N I OEM 
call OPEMF (LDPRL .‘'•C PRl . I ST AT , 3,1,1) 

IF( ISTAT.EC.0)G0TC70 
WRITE(42,10003) .NDPFL,LOP'’L, ISTAT 
STOP 20 

70 CALL RA'.SIZ (LOPRL,^ DPRL, I ) 

REAO(LC'='wL* l.FRRs'jC) JIDEN,JOATF,xri.”E,JFC, JTM, 

(j JASN.NCMAX.mrfC.NLCSA ,'i5E(jV,"FDAT,MAXf.D,NECG, JR00T,P6'ULT, lOPC, 

6 XOU.XANG 

lF(r.IOFr:,iNF,J IDEM) CALL F I LSTO (f'CPc-L, * NETWORK I D • ,M I OF^ , J I DEN , 6 10 ) 
IF ( IFCOOE.NE.jFOCALL F I LSTO ( ^'OPPL ♦ • FRF J CODE* , I FCCOE . JFC , 620 ) 

IF ( ITEMP.NF. JT'O CALL FILSTO (MI PFl , 'TE'-'P CODE* , I TE'-’P » J TM ,6 30 ) 

IF { IA5N.NF.JA5N)CALL F ILSTO ( MOPRL , *ASSUM CODE* , I A5N , J ASN ,6 35 ) 

IF (MAXMr..NE.M5IZf)CALL F I LSTO ( f 'CPRL , • 0 1 MENS I ON * ,NS 1 2E •MAXND , 6 50 ) 
SAVING NECO FROM HEADeP FOR NFW SOURCE MODE 
MECu=riECO 
JRLCUsNECO 
GOT090 

80 WPITE(4Z,100C4)LDFkL,JA 
STOP 30 

NEXT WE READ I NLC5A> I NSEOV 
90 DO 100 JAs2,15 

read (LDKRL* JA,ERR = eO> ( INLCSA (NIMDX, JA-1 ) , N I NDX= 1 , MAXND ) 

100 CONTINUE 
JAs 16 

read (LPPRl* JA.ERRsAO) ( r)SFOV('(ir:DX) ,NIN0X=1 sMAXNO) 

NEXT CREATE SECUENTIAl OUTPUT FILE 
ENCODE (.'IDOUT, 100C5) I FCOOE* 1000 , 1 TEMP , I ASM WJ I DEN , lOPTN 
CALL OPFNF (lDOUT.NDOUT , ISTAT) 
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0 2'''&f^ 
02070 ♦ 
020SC 
02090 
02100 
02110 
02120 
02130 * 
02140 ♦ 
02150 * 
021A0 ♦ 
02170 » 
021MO * 
02190 * 
02200 * 
02210 
02220 
02230 
02240 
02250 
02260 * 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 * 
02360 ♦ 
02370 * 
02380 ♦ 
02390 * 
02400 * 
02410 * 
02420 * 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 * 
02560 
02570 


IP < I 5 T*T. '•■’irr (•♦ 2 «i 0 O 03 ) rOUT.LnoUT. I STAT 

" ■ Tf 'T f;l!_ -*'•'>3 r-p' ’: ‘A''C 

■■ ■'i’F'u' -07) IPC.'.Or , ITP-P . I ASr ..'iine.4, lOPf'i 

lP(^-.i(- -LT-i.O) ,).T, iP-7) jorni 10 

I 7 p ( fl*, , 1 O'* I 3 ) P^■JL'' 

•■•p I T£ ( L : O'jT . 10013 ) P’-IULT 
110 co^iir.ot 

<’p ITP (L^OLT. luOOfi) 

00 1 I 5 I = 1 ..'.Ia’iO 

IF( I; 1 lC 3 A( 1 , 1 ) .LT.O) GQTOl 15 

wW ITE (LL'IOUT, 10009 ) ( I OLCSA ( 1 , J ) ,jsl. 8 ) 

115 CO^.TI^:lJE 

let USF'“: C^-iCnSF RETLEE^. SPECIFY IDG HEW SOURCE OP 

U 5 If;G cXISTf.G SOURCE (I’-iyFOOEn IM NT FILE) TO EVALUATE 

A HE^'i CESIWhD HSECT 
12 U WRITE (a 2 » 100 K;) 

REAO, ITEST 

IF < ITE 3 T.E 0 . 1 ) G 0 T 019 Q 
IF ( lTEST.tQ. 2 ) GCTC 130 
GCTD 120 

RECREATE OLD 50 UPCE FRQH NT 123456 FILE 
130 «£AG (LOPPl • 16 ) JR 00 T,VNnqPH,YTEMP,Z 12 .VOUTMP,CSPHI 
00 ILO I= 1 ,HEC 0 
CSDATAU ) =CSPMI (I ) 

00 140 jri,i< 4 EC 0 
YSDATA (I ,J) =Y^lORPH{ I ,J) 

140 continue 
ITE 5 T =5 
G 0 T 02<»0 

THIS section repo its USER TO SPECIFY SOURCE 
, AT PRESENT Qr-LY CURRENT SCUNCE ^HO SOURCE AON'ITTAMCE ARE 
'J PERMITTED .other TYPES HAY 3 E INCLUDED LATER 

for present source parameters hust 3 e introduced FRUM 
TERN^MmL. input FRc'' filfs nay pf developed later 

this part is used For idfal voltage entry only 

IT HAS been ADDi D LATf.R AND CAN bE RECOGNIZED BY THE 95 X LINE NUMB 
150 WRITE (42 . lOOU) NECC.?«NEC 0 
head. (VSCRCE(I) .I sl.NECO) 
l 60 call CvEPRT(V 5 ri 3 CE.NEC 0 ,rlDIN. 42 ) 
iV 50 RC=l 
WRITEC 42 . 10001 ) 
head, ITFST 

IF(ITE 5 T.NE.O)GOT 0150 

170 PRINT. *THE SOURCE VECTOR WILL CREATED WITHIN* 

PRINT, *THF program BY CURRENT rUFCTION.' IF YOU DESIRE A* 
print, ’ZERO equivalent "ORTCNS SOURCE ADMITTANCE TYPE CR • 
read, ITEST 

IF( ITEST, NE. 0 )G 0 T 0220 

SETTING YSOATA =0 FOR ZERO ADMITTANCE VOLTAGE DRIVE 
DO 180 IsUNECO 
DO 180 Jsl,NECC 
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02580 

02590 rr 
02b00 
02610 » 
02620 * 
02630 1^0 

02640 
02O50 
02660 » 
02670 
02680 
02&90 
02700 

02710 2^*'0 

02720 

02730 210 

02740 

02750 

02760 

02770 

OJ780 220 

02790 

02300 

02310 230 

02820 
02830 
02840 

02350 2*»0 

02860 
02870 
02880 

02890 250 

02900 
02910 * 
02920 * 
02930 * 
02940 
02950 
02960 
02970 

02980 260 

02990 270 

O3OOO * 
O3OIO * 
03020 * 301 
03030 ♦ 
O3O4O * 

03050 * 

O3O6O * 
03070 * 
O3O8O 
03090 


( i ,j) =ze' 0 

z-y.Ti' ,L 

j T , ^ 4 . 1 

^rST.rr;.:- 'iLC'; rr VALUE PU9 POSSInLlTY 

T'-!AT n jEt SO'JPCr IS TO JE SPECIFIED 
'JECDr'-xcn 
%^ITE( 42 *10015) 

■•PITE(42. 10001) 

■'■‘OTE IVSCRC is ‘iCT PESF.T A-IYVJHESE 

‘<EAD* I VSO'^C 

IF( IvSOFC.EQ.O) GCTO lhO 

I V509C=C 

■30T0210 

w9 I TE ( 42 * ino 16 ) ;.E( C * 2 »■ lECO 
PEAD. '.CSP4I ( I ) * 1 = 1 *nECO) 

CALL CVEPRKCSPHI ,i\ECC *MD IM *42 ) 

P9ITE (42 ♦ 10001 ) 

PEAO*ITEST 

IF(ITE5T.r,E.0)GQTD2OO 

G0T0170 

rtillTE (42 * 10018) ■:ECO*NFCO,2*'‘:ECO*f!ECn,.’'4ECO»2*NECO 
PEAO, ( (Y5DATA { I ,J) , J=l *GECO) * I = 1 «NECO) 

CALL C--lTPFT(Y5DATA*riEC0,N0IV,42> 

COVTlriJE 
•(9ITF(42*10001 ) 

pfad,itest 

IF( ITEST.NE.O) GOT0220 

CONTIf'dJE 

DO 250 I = UiVEC3 

OC 250 j = l*r,ECO 

YSOPPH(I*J)=YSDATA(Nj) 

CGVTIf-UE 

IF( ITFST.E3.5)G0T0270 

NEXT WE IMTIAuIZE all PEPTINEMT PSW TO HAVE 
A lFAST SIGMFICA.vT digit OF 1 

SEf1E‘’l’£R INLCSA ( I , 13) ALSO COMA I MS PRIMARY LOAD TYPE IflFC 
00 26(^ I = 1»MAXN0 
IF( InlCSA ( 1,1) .LT.0)GrT026O 
JTENS=INLCSA(I,13)/10 
INLCSA ( I * 13) =10*JTEN5*l 
COMTINUE 
CONTINUE 
DO 301 ir. = l,l4 

WRITECLCOUT. lOOll) * INLCSA COLUMN', In, ( I MLCSA ( I P , I N ) ,IP=1,160) 
CONTINUE 

'•'(R ITE (LnOuT,lOCl 1 ) • INSEOV ♦ 1 * ( IN 5 EQV ( I P ) * I P = 1 « 80 ) 

NEXT cetek‘-u:;e what Section information is desired to be 

PRINTED OUT 

FOR OPTIONS refer NOTES 
IPRIilT IS A concatenated NUMBER 
w=^ITE (42* 10020) 

rfad*iprint 
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03100 





03110 

ir 


OF iP'^'rr 


0312^ 



is 1,5 


03130 



i- r ^ i f T I I ) ; ( 1 


03140 


2 

CV^T^•A'^: 


03150 


Z'’<0 

jP^J = I P li.T/ 10 


03160 





03170 



IF (.<p;: LI- Uf T(<PP) si 


03130 



IF { jPFT.tO.O) GOT0300 


03190 



10^ I iTsjPWT 


03200 



O0T0290 


03210 



■'.F.XT .tE DETCS.-ir t' I .Put voltage 

. 

03220 


3'-0 

IF( ITFST,E0.5)GGT0M0 


03230 



I A9cC=P.LCSA(j900T, 14) 


03240 

* 


a'RITE (42 ♦10011) *LPF njT VECTOR* ♦JR00T,LPPINT 

. 

03250 



LTYPsI^’LCSA { JHG0T,6) 


03260 



OOsJROQT 


03270 



'ISECTsjPCOT 


03280 

* 


■/R ITE (A.2f 10031) *ROOT SECT ION • ,^:SECT , I AREC ♦LTYP ♦ 0 

♦ NECO 

03290 



ASSiGf. 310 TO NEXSTA 


03300 



G0Ta550 


03310 


310 

C0\TIf'4L'E 


03320 

* 


'lECO FC? ROOT SECTIO'-i HAS BEEFI DEFINED IN HEADER RECORD 

03330 

» 


OF f,T file 


03340 



IF(LC'J.'iE.NECG) STOP OCMO 


03350 



OQ 32C IsUlCu 


03360 



00 320 JsULC'J 


03370 



YTEMP( I ♦J) sYlL( I ,j) ♦•YSORPHI I ,J) 


03380 



212 ( I ♦J) sYTE'^PU tj) 


03390 


32^ 

CONTINUE 


03400 

* 


AT this POIIiT YIN FeCOMfS ^''AILABLE AND WE CAN 

compute 

03410 

* 


current drive to yield oes''.,d voltage at the 

If.PUT 

03420 



IF( IVSORC.EG.DCAlL CrvtPY(YTLwp,vSORCE^CSPHI ,LCU,LCU^ 

03430 


0 


03440 

* 


NEXT V.E enter SOuPCF PARAMETERS INTO OUTPUT FILE 

03450 



wRITE(Lr;OUT,l0021) 'SOuPCE CURRENT* 


03460 



CALL CVEPRTICSPHI ,,*,EC0^-ir>IM,L00UT) 


03470 



wRITE(LOOUTtl002l) 'SOURCE ADMITTANCE* 


03480 



CALL CMTFRT(Y5DATA^NFC0»MDIM,LD0UT) 


03490 



NPARsO 


03500 



NSIasO 


03510 



00 330 I = 1,.N0IM 


03520 



00 330 J=1»NDIM 


03530 


330 

YSIBd ♦J)=2£RD 


03540 



wRlTE(LDOUTfl0012) *Y INPUT* ♦NSECT 


03550 



call CMTPRT(YIN,NECO^MDIm,lDOUT) 


03560 



wRITEILDOUT, 10012) *Y SOuRCE'oYlM* ♦f'SECT 


03570 



Call chtprt (Ytemp^neco^noi.'Uldout) 


03580 



CALL CMTIriV (Z12^LCU4LCU,NDIM,.VKAREA) 


03590 

* 


the following two pair loops could be combined 

FOR 

03600 

* 


MORE EFFICIENCY 


03610 



DO 340 1 = 1, LCU 
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MTaXA 

03620 
0 36 3(' 
036^0 
03660 
03660 
03670 
03660 
036 i ?0 
03700 
03710 
03720 

03730 

037<»0 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 

038^0 

03850 

03860 

03870 

03880 

03890 

03900 

03910 

O392O 

03930 

039^0 

03950 

03960 

03970 

03980 

03990 

0^*000 

04010 

04020 

04030 

04040 

04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 

04130 
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( I ) 

Cpi’-* [ ( I ) t,' 0 

*--1 •; I ) ( I ) 

3 4 i.' 1 . *i^C j 

jT ( I ) C ( J ) ( I . J) ( j) 

'•'P-r. ( I i =V 0 UT‘ l> ( I ) 

“ r O) sYSf'P’P^ ( I O) 

3**w CJMPUL' 

I'o 35 c i = i,.'.cr^ 

VP"iQ;jT ( I ) sZh^U 
00 350 J=1 ,lCu 

CJPh I { n =CLP'9I ( I ) ♦YIi. { I , J) ♦VOUT'-'P ( J) 

IF(I .GT.r.ECO) G0TO350 

VPhC’JT ( I ) =VPHQiJT ( I ) *VT0PH ( 1 » J) *V0UT^ P ( J) 

350 CUNTK.UE 

wPITECLOOUTtirnzZ) • IMP'JT VOLTAGE* 

Call CVFPPT ( VOUT"P,LCU»:MDIM,LDOUT ) 

aP I TE(L 0PPL *16) JRCCT ,Y'J0 PPh,YTEMP .21 2 »VQUTMP .CSPHI 

* iMTIALiZt overall voltage TRAfJSFFP MATRICES VTTOTL»VTTMP TO IOEMT 
OC 37C Isl.r.Ol' 

- DO 360 jsl.f.DlM 
VTT3TL( I iJ)=4tPC 
360 VTTMP( I ,J) rZERO 
VTTOTL(I*I)=ACuE 

370 VTT^'P ( I , I ) sAONE 

* OETERMNE FAPA^‘ETEPS OF ROOT SECTIOM 

* 14 THE FOLLOwPtG Y50RPH AND YTE’P ARE TEMPQRY VATPICES 

* which STORE Y 2 K Af4D Y-iUT OF PREVIOUS SECTION ALSO. 

* Z12 IS 0 EFI*;Ej (USING RCP FIGURF E- 40)HY 

* EI=Z12*(-I2) FOR Ilso. USING FIGURE E-40 

* Zl 2 s(Yl.Ypi) I:.v£H5E*(D*Yl»e)-P 

* YC'UTs (D4 YNCPPh* 4) I 4VEPSE * ( C* Y- ;0RPM*A ) 

* ARRIVE at FOLi-QwIMG STATEN E ^T ONLY FOR ROOT SECTION 
3”0 call CyTAOD(YIN.Y^;OWPH,YTE'*P«LC’J.;,OI“) 

Call C'-apoc (Dphi , y:\okph, [ 3Pr(i ,y5crrh,lcu,lcj,lcu.ndim) 

CALL Cy-TlNV ( YTE.’-’P.LOJ,LCU,il0rS.JKARFA) 

CAuL CN.TMPY ( YTE'-'P,YS 0 RPh,Z 12 .LCU.LCU.LCU.NDIH) 

CALL C;1TSUB(Z12.PPHI,Z12.LCU.I;DIM) 

CALL CN'TIMV (YSORPH.LC'J.LCU.NDI^.'WKAPEA) 

CALL CM^P“C (CPHI .YN0 R?H,A?HI . YTE^'P . LCU .LCU .LCU . ND I M ) 
call C*-^TYPY(YSORPh,YTEMP.YOUT,LCU.LCU,LCU.NDIH) 

CALL CMTMPY (VTOPH,VTT-''P,VTTOTL.f.ECO,LCU,JRLCU,NDIM) 

XLENTHsFLOAT ( INlCSA ( JP 00T.7) ) / lO.O/PMULT 

* NEXT WRITE selected QUANTITIES IN' OUTPUT FILE 6 LDPPL 

* QUANTITIES selected «Y LPPI'T 
ASSIGN 6 lQ TO NEXSTA 

* * **** 

♦ BEGIN OUTPUT MACRO-SECTION » 

I*»**#»»** * 

390 00 400 Isl,*iDIM 
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'JT'. ka; 

'Sh 


04 uo 





■ - ' J=i » ! ' 

OhU ! 


’ M : 

'' ♦ ^ 

' 1 ' 


^ i . • 7 * '' , ' • u # ' ^ if ' T 4 1 1 

Q 4 1 0 


2 T ' f ^ > 1 I i . j i • Y '>>1, ( 1 , j ) 

04 ISO 


1 '.( i ) =C'. 1 7 ( 1 ) ♦/ITi .T { I , j) 

04200 

41 ' I'l 

C''' Tr 0 

04210 


C-ll C 7 1 , ( ’T^.T,- . (-; 1 , Pl[, 

04220 


J . u T : ' ' 

04230 


Jl' 7f; sj'.olT 

04t4O 


OD 4 10 1 = 1 , .fp- 

042?0 



04 2 6 0 


( I ) =CA-'S ( VC I-.'JT ( I ) ) 

04270 


V ( J* I ) =Cm ib (2TC^ t I • I ) ) 

04280 


03V(2*j*l )sCa; btCliPHl ( I ) ) 

04290 


IF IP.n' ( 1 ) ,lT ,PVL P*. Af.O, I .LE.'lFTCO) JVOlTs • *• 

04300 


(-‘Oi ( I ) .lT.pIl P*. A V-). I ,LE.f "=LCO) Jp<lDEDs • •• 

04310 

4 t r, 

co‘.7p'ur 

04320 


p: >1 - =’ 1,0 

04 3 30 


0:‘- 42 0 I = UlCu 

04 340 


P2'>'.[ A = 0C^ l:F ♦AL Al ( vFH p, ( 1 ) *CC N JG ( O C'ci 1(1))) 

04350 

42t' 

c:",7i; ’IF 

04360 


00 430 1 = 1 ♦■•jOP- 

04 3 70 


vnoT"P ( I ) =ZEPr' 

04380 


00 430 J=l».:Opl 

04390 


^^74 -p (I , J) =21^0 

O 44 OO 


vsopf'h ( I O) =2f.P(i 

O 44 10 

4 3ii 

COMP' Jl 

04420 


call C'TCPY (VTTOTl .V7T 'P.ji.’LCOs\ECn,’.nPM) 

04430 


P 44 O I = l,.'lEC0 

04440 


VOk^TMP ( I ) = vPHi. 7.IT ( I ) 

04450 


00 44 O J=i,4.ri 

044b0 


YTE IP ( 1 . J ) = YjuT ( I , J ) 

04470 


Y50APH ( I . J) =Y0^ ( I , J) 

044 WO 

44’ ' 

CP 

04490 


>"< H50 1 = 1,10 

04500 

4 ^ 1 ' 

P9T (I ) =0 

04510 


IP9T1 =0 

04520 


IP9T2=0 

04530 


I°P5F = P.LCSA (f.SECT,9) Yinoo 

045SO 


P- T ( 1 ) =CAFS (ZTOT ( 1 , 1 ) ) 

04550 


00 4{j0 I = 1 ,lCu 

04560 


IF (CATS tZTCT ( I » I ) ) .uT.PPT ( 1 ) ) PFT ( 1 ) rCAOS (ZTOT ( I , I ) ) 

04570 


DO 460 J=1,lCU 

04560 


IF (CA.-b ( Y I*. ( I , J) ) .gt.PK'T (2) ) P‘ T (2 ) =CAOS ( YIrK I , J) ) 

04590 


IF (CA-S(YSIL: ( I ,J) ) .GT.PPT (3) ) f’F T ( 3 ) sCArtS ( YS I H (I ,J) ) 

04600 


IF (CAFb ( YgohPm ( I , j) ) ,GT,P9T ( 4 ) ) PPT ( 4 ) =C At3S ( Y.NuRPH ( I 

04610 

4n 0 

COf.Tp ut 

04620 


IF ( PPT ( 2 ) ,GT . 1 ,E- 1 0 ) PRT ( 2 ) = 1 , /PPT ( 2 ) 

04630 


IF (PRT (3) .GT.1,E-1C)P'^T(3)=1,/PQT{3) 

04640 


I'^IPPT ( 4 ) .GT,l,c-lO)PeT(4) = l./PPT(4) 

04650 


8>A’ATi=n,0 
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0 ^ 6 0 

Hit*: f) U 

u 4 1 y 0 

(K7;)C 

04710 

04720 

04730 

04740 * 

04750 * 

04760 

04770 

04780 

04790 

04800 * 

04810 

04820 

04830 

04840 

04ftti0 

04660 

04670 

04880 

04890 

04900 

04910 

04920 

04930 

04940 

04950 

04960 * 

04970 

04980 

04990 

05000 

05010 

05020 

05030 

05040 

05050 

05060 

05070 

05080 

05090 

05100 

05110 

05120 

05130 

051^0 

05150 

05160 

05170 


; ,c 

i " ) .i_T. l o'->T.^.»7o 

- 7(51/ 

■ hT 2 ~ T ( 3 )/.' ■• T (*. ) 

I f ( P ^ T I , i. T . i . i: ) r - r I s 1 , /p < a 71, 

IP (o-;-r; ,i.T, 1 ,0) P - at2 = I ./P9AT? 

4 ’0 I3-?T1 sC'PATl 

■ O'., -i. output A’lO LDO-L FILF.S A'!D 

CH4U<,E STATOU OIUIT oY ADDING I IF IT IS NOT ALPEAOY 2 
LSDIG=I; LCSA (.,0, 1 3 I -I' LC5A (f 0,13) /10*in 

IF ( iruoF.UE.o.AHD. IPm.sE.lF. 3) ‘^FTU ) =CAtiS < ZTOT ( I PHSE » I PHSE ) ) 

IF (LbC lU.LT.E) I iLCSA (' 0,1 3) = i:.LCSA (M'0, 1 3) ♦! 

GOTO (460,490^500,510) ,M-JFAO 
i^'WITE STATE'E’iTS 

4 60 WHITE (LI * I AREC) ^.5FCT,LTYP,LCU',0RFC0»XLE'4TH,VTT0TL,DPHI , 

6 VTC)OH,YIN,Y:-OPPli, 

6 Y2< ,Y0UT,VPHI.%,VPM0UT,CUPHI ,CNPHI 

G:.iTn52C 

A-'vii WCI TF. (LwP:<L' I APEC) '■5ECT,LT P,LCU, -PFCO , VTOPH , Y IM ,Y2K , 

& YOUT,VTTOTL ,YFHTP ,ZPHTR,X(n, 

6 YNOF.Ph,VPHI ,,VP‘--OliT,CUPHl ,CNPHI 

0CTO52O 

5''0 WRITE (LI'PRl' IAPEC)r.SECT,LTYP,LCU,' PECO , XLENTH , VTTCTL , AM ,BM ,CM , 
6 APHI ,:-‘.DmI ,CF'HI ,v/TOPH,vloa;'’,YOUT, 

6 YI.V,Y.‘.f;PPh,Y2X ,V'’*^l‘i,VPHC'JT,CW’'->t-I , TOPHI , QLOAD , VSPR A T 
GCT0520 

51i/ write (lL-PPL* I APEC) 'SECT, LTYP,LCU,:R ECO, XLE nth, VTTOTl ,APHI , 

6 OP HI ,CPHl ,l;PHI ,\/T0 Pm,YI*1,YC!JT, 

6 YNGEP-i,Y2< ,VPhI i , V^HOUT , C^E ; ‘ I , C".0H I , XL 1 2 , XL2 3 

after this Always ^rite output file 
520 CG\Tr\iJE 

IF ( IPFLC-.EO.O) U0TU524 
IuDPLT=IUP 0 lT ^1 

IF( I ■irPLT,LE.".l^lPLT)<„:T05 22 

1 F ( IPLTF .GT.O) UTTOSZa 

ipltf=i 

PRI'T, 'lIuITIOG cumber OF PLOT ITEM'S TO ND I PLT= • , 'lO I PIT 
G0 T(j524 
522 CO' T I CUE 

XAdcr.PLT.DsXLEfiTH 

XA(I,60PLT,2)=POV(i) 

XA ( If;nPLT ,3) SF'OV (2 ) 

XA( I'iDPlT, 4) sP0V(3) 

524 CjCTIC'JE 

lF(IPRFLG,Ea.l)Q0T0530 

IF (LPP INT ( I ) ,E0, I ) irRlTE (LDGUT, 10012 ) 'OUTPUT VOLTAGE » ,^SECT , 

6 (VPhCuT (I ) ,1=1 ,CECO) 

IF (LPP KiT ( 1 ) .£0,1 ) aRITE(LDOUT, 10U12) 'INPUT CURRENT' .NSECT, 

6 (CUPHI (I) ,I=i,LCU) 

IF(LPRICT (2) .FCj. 1 ) .vRI TE (LOOUT, 10012) '•'ORTON ADMITTANCE* , NSECT 
IF(LPPI0T (2) .EO.DCAll CMTPPT ( YC'QPPH , LCU ,N0I M ,LD0UT ) 


NTwKAf 

05180 

05190 

05200 

05210 

05220 

05230 

052<*0 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05360 

05370 

05330 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

05690 
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IP (uPP [ ■ T (2) .ZO. 1 ) (Ln0UT» 10012) *fiOOTQ'l CURREMT* ,NSECT. 

(C.'' PHI (I ) , 1 = 1 

IF I. T (3) .e:;, 1 ) aPITE (LOOUT, 10012) • I.IPUT AOMITTAMCE* .N5ECT 
IF luPl I jT ( 1) ,d ). 1 ) call C'TPPT J Yl.l.LCJ^NDmLDOUT) 

IFluPPi::! (^») ,r.0.1) ■-RI'^E(LD0UT»10012) 'TOTAL LOAD* .NSECT 
IF(lP» r:T (4) .fi.'. 1 ) CAl.l C'ITPKT (Y2K .i'IFCO»;IDIM,LDOUT) 

IF (LPRIi.T (5) .EO.l) /.RITF(loouT*10012) 'VOlTAGE TRANSFER' »NSECT 
IF(LPRI. !T(5) .EO.DCALL C^’TPRT IVTOPH ,LCU»MDIM,LD0UT) 

I F ( LPP 1 1- T ( 6 ) . F.:i, 1 ) v,R I TE ( LOUUT *10012) 

6 'CUWRREMT OPIVE VECTOR FOR UNITY VOLTAGE ' .N5ECT 

IF(LPPiriT ( 6 ) .EO.l )CALL CVEPRT (CUDR I V lEC'J *ND I MtLDOUT ) 

IF(LPRIf'T{7) .E0.1)V.niTE(LOOUT. 10012) 'OVERALL VOLTAGE ’» 

6 'TRANSFER* ♦■'iSECT 

IF (LPPI'lT (7) .EO. 1 )CALL CMTPRT ( VTTOTL » JRLCU ♦MOIM ♦LOOUT) 

530 IF(lPRINT( 9) .erj.l) IPRFLGsl 
IF(LPPINT(9 ) .me. 1)0070540 
IF(L00UT.E0.42) iheao=o 
IF ( lALL.Ne.0.AMD.LD0l)T.E0.42) IHEA0=1 
IF(lH£AO.ME.l) WRITE(LD0UT,1C024) 

IHEAD=1 

IF (I ALL. EQ,0.0R.LD0UT.:»L‘.42) WRITE (LOOUT, 10025) NSECTiMSia, 

6 I'lPAR.XLENTH, (PCV(I) *1 = 1*3) . 

6 PRT(l) *JV0LT*JI -1PED* (PRT ( I ) *1=2*4) * IPRTl * IPRT2 *POWER 
5 hO COMTIMUE 

* RESERVED FOR OTHER OPTIONS 
GOTONE.XSTA, (610*730*85O,3f,0) 

* * 

* end output .'-.ACRO-SECTIOM * 

* * 
»**»**»#*«*»*#**«***«**««««« **«**#«*|.*«.«^*t.)(.«**t 4 

**«4*#** ***«»«« **««•»* *«****«*««»•«***(•««**««««•«« 

* * 

» begin read ‘••ACRO-SECTION # 

* » 

**************** 


* 

* 

♦ 

* 


550 


STRATEGY Of: LCU AMD NRECO. 

LCU IS the number OF EFFECTIVE CONDUCTORS ASSOCIATED 
WITH INPUT TO NEW SECTION 

NRECO IS the number OF EFFECTIVE CONDUCTORS ASSOCIATED 
WITH OUTPUT FROM NEW SECTION 
HENCE (CURRENT) NECO SHOULD EOUAL MEW LCU 

IF{LTYP.GE.001,AMD.LTYP,LF.032)MREAD=1 
IF(LTYP.GE.033.AND.LTYP.LE.099)MREAD=2 
IF(LTYP.GE. 100.AMD.LTYP,LE.999) NREADsB 
iF(LTYP.GE.lOOn) MR£AD=4 


1<sLTYP<=9 

10<=LTYP<=23 


MREAD 

I 

1 


3: I TRANSITION 

THREE PHASE TRANSPOSITION 
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05700 

05710 

05720 

05730 

0574(1 

05750 

05760 

05770 

05780 

05700 

05800 

05H10 

05820 

05830 

05840 

05850 

05860 

05870 

05880 

05890 

05900 

05910 

05920 

05930 

05940 

05950 

05960 

05970 

05980 

05990 

06000 

06010 

06020 

06030 

06040 

06050 

06060 

06070 

06080 

06090 

06100 

06110 

06120 

06130 

06140 

06150 

06160 

06170 

06180 

06190 

06200 

06210 


* 

* 

♦ 

» 


24<=LTYP<s32 1 

33<=LTYP<sTy 2 

1C'C< = LTYP<s'19'» 3 

nro< = LTVi-' H 


3:2 Aim 2: 1 TRAKSITION 
PATIO 5AMK TRA\SCRf-’f:P 
'0‘^MAL Ll.iPS 

5U9UETW0R<S (NOT r-PLE‘"t;'-VED> 


(.•OTQ(560.570»580^590) , IREAQ 

* U = LTYP< = 32 

5*^0 ^CAD(LOPPL* IAntC,tPP = PO)K0l)E,LTYP,LCU,MRECO,XLEMTH,VTTOTL. 

^ DPHI ,VTCP*^«YI,UYMORPH, 

^ Y2K .YCUT»VPHri«VPHOUT»CUPHI »CNPHI 

G0T060C 

* 33<=LTYP<s99 

5 70 ^FAO (LDPRu* I » ER9 = 80 ) KODE ,LTYP ,LCU « NRECO , VTOPH, Y I N , Y2K . 

4 YniJT,VTT0TL»YRBTR,2R0TR,Xri, 

YriOPPH,VPHIi-4,VPHOUT«CUPHI ,CMPHI 

CiOTObOO 

* 100<=LTYP<=999 

5 10 :-^EAC (LDPRL* I AREC»EPR = 8 0)KODE»LTYP.LCU«MRECO^XLENTH*VTTOTL» 
6 AC,EMiC7i»APHI ,L'PHI ,CPHI »DP'-'I » VTCPM, YLOAD < YOUT » 

6 YIN,YriOPPH,Y2K,V?MrUVPMOUT«CUPHI ,CNPHI ,QlOAD»VSPRAT 
GOT0600 

* 1000<=LTYP 

5<40 READCLDPRL* IAPECiEPR = PO)KODE»i.TYP,LCU,MRECO»XLENTH,VTTOTL» 
6 APHI «dPHI ,CPHI ,DPHI .VT0PH,YIM, 

6 Y0UT»Yr!0PPH»Y2is. » VPH I N » VPHOUT ,CUPM I ^C'-iPHl .XL12»XL23 

600 CONTINUE 

» '■•'RITE (LL'OUT *10026) NREAO ,KODE *LTYP ,LCJ *NRECO * I AREC *NECO 

GOTONEXSTA* (3 10 *7 10 * 750 , 770, 950* 1070,1220*1320*1340* 1380) 

* 


* * 

• END OF READ "1ACP0-5ECT ION * 

* * 
-»■»*■*•♦**■**♦♦*»*«-♦*** #4 *»#*»****)** 4 44 4-W1*# 

* 

* the Following is associated '<ith source and root section 

* calculation and Should never involve 3 to i phase 

* transition or ratio bank either of which will 

* HAVE UNEOUAL LCU AND N£CO 

* the FOlLOvvI *Cj STATENt'NT IS REACHED AFTER SETTING UP 

» SOURCE and PCOT SECTION 

* next we READ IN SECTION AT WHICH OUTPUT IS DESIRED, 

610 WRITE(42»10027) 

«EAD*XMSECT 
w'RITE(42*1002 8)KN5ECT 
WRITE (42 *10001) 

read* itest 

IF ( lTEST.nE.O)GOT06lO 

IF {,<MSECT,GT,9999) G0T0650 

IF ( INLCSA (KNSECT * 1 ) .GE.O) GOT0670 

'•'(R ITE (42* 10029) KfiSECT *iJIDEN 

G0T0610 
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06220 


SECTIOi AODFO TO CO.'''PlJTE TO ALL TEP'-'I^AL MODES 

06230 * 


2' LY SI'.C.Lu Ll'f: OviUtjT IS P90VI0PD 

06240 

0 J" 

IALwSI 

06250 


JsO 

06260 


ciC l = u:.blZF. 

06270 


IF ( If.LCSA ( I , n .i_T,0)GCTn6 30 

06280 


1F( I.iLCSAl 1,3) , .t.O.Ow. IMLCSA(I,6) .ME.O) G0T0630 

06290 


JSJ* 1 

0b300 


IriSFOV ( J) =I 

06310 

6 30 

COMTIMUE 

06320 


''EMDsJ 

06330 


JOVaj 

06360 

660 

IF( jlv,FO,0)vjOT:387C 

06350 


<MScCT=INSEOV unv) 

06360 


JOVsjCV-l 

06370 


G0T0670 

06380 

6 50 

00 660 Isl,9 

06390 


LPPliiT { I) sc 

06600 

650 

CONTINUE 

06610 


LPRMT (9) =l 

06620 


50T0620 

06630 * 


make STACK TO PROCESS IMFORMATICN 

06660 » 


SINCE THE DESIRED SECTION COULD OF ANYWHERE* THE CURRENT 

06650 » 


MtCC IS UNDEFIf.EO, IT WILL DE DEFINED WHEN FIRST 

06660 » 


upstream section FOuriD WITH STATUS DIGITs2 

06670 

670 

CONTir.'UE 

06680 


ISPsi 

06690 


NDsKMSECT 

06500 

6.30 

LSDIGs 1C0{ IKLCSA<ND, 13 ) , lO) 

06510 * 


NSeCTS at .NICH voltage-current have been determined 

06520 * 


WILL HAVE STATUS DIGIT=2 

06530 


IF (LSDIG.EO.O) vG0TO690 

06560 


lF(LSDIG*G£,2)G0Tri7O0 

06550 


ISTAK (ISPla.ND 

06560 


ISPsISP*! 

06570 * 


NOW GE"^ A parent NSeCT , WORK I MG TOWARDS SOURCE, WHICH 

06580 * 


HAS 3E£'I evaluated 

06590 


NDs1nlCSA(ND*2) 

06600 


GOT0680 

06610 

600 

WRITE(62»10030) ND 

06620 


STOP 6700 

06630 

700 

CONTINUE 

06660 » 


lNLCSA(N0«l6)C0NTAIf:S RECORD INDEX 

06650 


lARECsINLCSA<MD,l6) 

06660 


LTYPsINLCSA(ND,6) 

06670 


ASSIG.N 710 TO NEXSTA 

06680 


COTC550 

06690 

710 

NSECTsKODE 

06700 


CALL CMTCPY (VTT0TL«VTT*IP jrlcu,meco,ndim» 

06710 ♦ 


NOW HAVE READ RECORD k jOCIATED WITH NSECT WHICH HAS 

06720 * 


BEEN evaluated. THIS WILL ESTADLISH NECO, 

06730 ♦ 


IT SHOULD be non zero 
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067‘*n 
06750 » 
06760 * 
06770 ■+ 
0678U » 
06790 * 
06800 * 
06810 * 
06820 » 
06830 
06840 
06850 
06B60 
06870 
06880 
06890 
06900 » 
06910 
06920 * 
06930 * 
06940 * 
06950 * 
06960 
06970 
06980 * 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 * 
07160 • 
07170 * 
07180 » 
07190 » 
07200 
07210 » 
07220 
07230 * 
07240 * 
07250 ♦ 


'iFCGsr:4'hCC 

■■•9 1 TE (lJOUT, I'.'C U) 'yniiT* ,:-.5FCT 
C.iut C TI'-T ( vn.jT. ;fCi..',’iori.LOCl'T> 

• 9 I Tr {l-l Ci'T . IT'-' 12 ) • y 1 -a-^uT • «i (f)i:CT 

C^i_L C•■T^^'2T ( vr. ..‘:rro, I - v.,lD01jT) 

•'9 1 tf (LI. CUT. ICO 12 ) • VTCPMI ,.^SECT 
CAUL C-'TPPT ( VT0PM,,vECC.'lDIfUL?OUT) 

SAVE VPHOUT,YOUT.Y2K IN VCUTMP . YTE‘-1P . YSORPH WHICH AK£ 

EACH OF DI'-'EOSirU'. .lECO (IF AT OUTPUT) 

ALTF.vPsXlENTH 
00 720 1*1,;, ecu 
VOJTfiP ( I ) sVPHOUT ( I ) 

00 720 j*i,;ieco 

YTE-iP(I.J)*YOuT(I,j) 

YS0RPH(I,J)sY2<(I,j) 

720 CCNTIMJE 

write (42 .10031) MSTAK*. (ISTAK(I) .I*1.ISP) 

710 IF(ISP.E(J.1)GOTO04O 

ISP*1 INDICATES SPECIFIED DESIRED SECTI0r4 WHERE RESPONSE 
IS DESIRED 

otherwise GET N'EXT SECTION If: DCWMSTREAM DIRECTIO^N. 

■NOTE A CURRENT NECO IS DEFINED .AT THIS POINT 
I5P*1SP-1 
NDsISTAK (ISP) 

I t THE NE^T SECTlUfi WE 03TAIN SI9 lU:G INFORMATION 
DO 740 I*l.NDI'( 

DO 740 J*l.N0Ii-1 
740 YSISd .J) *ZERQ 
NPARsIfiLCSA(.ND.2) 

NSMsINLCSA (MPAR.3) 

IF( lSI5.E0.i.D)N5I? = riLCSA(NPAR.4) 
lF(r!SIQ,EQ.0)G0T0760 
iAS£c=ir:LCSA(MSie. 14) 

LTYP=I\LCSA(MSI13.6) 

ASSIGN 750 TO NEX5TA 
GOT0550 

750 CALL C’nCOP (YIN,YSn3.LCU.LCU.’iDIM) 

760 lARECsINLCSA(fiD.l4) 

LTYP=IolCSA(ND.6) 

NSECTsfiD 

ASSIGfi 770 TO NEXSTA 

READ NEXT downstream SECTION DATA 
Yln.Y2K.VT0PH.APHI .gPHI.CPHl.DPHl .YLOAD.LCU.NECRO 
REMEUbER AT THIS POINT THE. FOLLOWING DATA FROM PARENT HAS 
been saved: VTEMPsYOUTP. YS0RPHsY2KP. VOUTMPsVPhOUTP 
ftHERE PsPARENT 
G0TO550 

NOW WE begin PROCESSING LOOP 

770 IF(<0DE.NE.NSECT)CALL FilSTC(VDPRL. 'NSECT W .NSECT.K0DE.3305) 
WRITE(LDOUT. 10012) 'V INPUT* .NSECT 
call C'dPRT (YIN.MECO.MDIW.LDOUT) 

•YRITE(LD0UT.10012) 'VTOPh* .nsect 
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07360 * 
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07380 * 
07390 * 
07400 * 
07410 
07420 * 
07430 
07440 *♦ 
07450 
07460 
07470 
07480 
07490 
07500 
07510 
07520 
075^0 
07540 
07550 » 
07560 * 
07570 * 
07580 * 
07590 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 * 
07700 * 
07710 * 
07720 * 
07730 * 
07740 * 
0775C 
07760 
07770 
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CALL CMTPRT{VTOPH,f,ECO»NDIM,LOOUT) 

WRITE(LOOUT»10012) *TOTAl LOAD* »N5ECT 
CALL CMTPPT(Y?K»NECO»fiDIM,LDOUT) 

NOTE YTEMP*Y50RPHtVCUT»«P HOLD DATA FROM PARENT NSECT 
NOTE the FCLLOWIMG PROCEDURE COULD BE HADE MORE EFFICIENT BY 
BY USING A TEMP VARIABLE FOR VOUTMP 
XLENTHsXLTEMP*INLCSA(NSECT* 7) /lO.O/PHULT 
XLTEMPsXLENTH 

WRITEILDOUTaOOll) *LCU MECO NRECO* »LCU»NECOtNRECO 

NOW perform UNIVERSAL ARITHMETIC INDEPENDANT NEARLY OF 

nread 

LOGIC FOR NRECO«MECO«LCU. NECO AT THIS POINT REPRESENTS 
THE NUBER OF EFFECTIVE CONDUCTORS AT OUTPUT OF UPSTREAM 
SECTION, LCU IS DETERMINED FROM READ MACRO FOR THE NEW 
SECTION AND SHOULD BE EQUAL TO NECO, 

IF(LCU,NE,NEC0)CALL ERRSTTI *NTWKAN**0130.NSECT»LCU«NEC0) 

NOW RESET NECO TO NRECO WHICH CAME FROM READ MACRO FOR NEW SECTION 
NECOsNRECO 

#***#*»********imser consistancy checks here 

772 CONTINUE 

DO 790 IsUNDIM 
CUPHI (I)=ZERO 
VPHOUTl I) sZERO 
VPHIN(I)sV0UTMPin 
CNPHIinsZERO 
IF(I.C-T.LCU)G0T0790 
DO 780 J*l*LCU 

CUPHI ( I ) aCUPHI ( I ) ♦YINC I » J) *VOUTMP I J) 

YTEMP ( I ♦ J) sYTEMP ( I » J) ♦YSORPH ( I » J> 

NOTE that the FOLLOWING NORTON SOURCE PARAMETERS PERTAIN 
TO THE INPUT TO THE NEW SECTION BEING PROCESSED 
YTEMPaYOUTP»Y2KP2YOUTP*YINNEW>YINSIB*YLOAOP 
aYNORPH^YINSELF Y I NSELFaY I N ( I »J) 

YNORPHC I »J) aYTEMPi I *J) -YIN( I »J) 

CNPHI (I)aCNPHI (I)4YTEMP<I ,J)*VOUTMP(J) 

IF(I,GT,NEC0)G0TO760 

VPHOUT { I ) avPHOUT ( I ) ♦VTOPH ( I «J) ♦VOUTMP (J) 

780 CONTINUE 
790 CONTINUE 

ASSIGN 730 TO NEXSTA 

CALL CMTMPY(VTOPH,VTTMP,VTTOTL»NECO.LCU»JRLCU»NDIM> 

IF (NREAD.EQ, 1 ) GOT0600 
IF(NREAD.E0.2)G0T0831 

ARRIVE here for lOO<aLTYP<a999, NREADaB 

IE normal line processing 

WRITE(LD0UT«10012) * INPUT VOLTAGE * .NSECT 
CALL CMTPRT(VPHIN.NECO»NOIM.LDOUTJ 
WRITE(LD0UT. 10012) 'OUTPUT VOLTAGE ' .NSECT 
CALL CMTPRTC VPHOUT. NECO, ND I M.LDOUT) 

CALL CMAPBC(DPHI.YN0RPH,BPHI.YS0RPH.LCU,LCU,LCU.NDIM) 

CALL CMTINV(YSORPH.LCU.LCU.NDIM.WKAREA) 

CALL CMAPBCICPHI ,YNORPH,APHI . YTEMP, LC'J.lCU.LCU.NDIM) 
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07780 
07790 * 
07800 • 
07810 
07820 
07830 » 
07840 * 
07850 * 
07860 # 
07870 * 
07880 
07890 
07900 » 
07910 
07920 
07930 « 
07940 » 
07950 
07960 
07970 
07980 # 
07990 * 
08000 
06010 » 
08020 
08030 
08040 * 
08050 
08060 
08070 
08080 « 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 * 
08200 • 
08210 
08220 
08230 
08240 
08250 
06260 
08270 
08260 
08290 


CALL CMTMPY(YSORPh»YTEMP,YOUT.LCU.LCU*LCU*NDIM) 

AFTER POWER CALCULATION, STATUS DIGIT UPDATE AND RECORD 
»vRlTt, RFTURfi TO PROCESS NEXT N5ECT 
GOTU390 
800 CONTINUE 

ARRIVE HERE FOR 1<»LTYP<*32, NREAD*1 
IE TRANSISTION AMO TRANSPOSITION PROCESSING 
IN THE FOLLOWING SINCE THE NORTONS ADMITTANCE INVOLVES 
PARTITIONING WITH THE CURRENTS INTO OTHER TERMINALS ZERO 
W£ FIRST INVERT YNORPH, PARTITION AND THEN RE-INVERT TO GET YOUT 
CALL CMTINV(Y^40RPH,LCU*LCU,NDIM,WKAREA) 

CALL CMTMPY(VTOPH,YNORPH,YTEMP,NECO,LCU,LCU,NOIM) 

NOTE DPHI CONTAINS (FROM NTWFER) VTOPH TRANSPOSE 
CALL CMTMPY(YTEMP,DPHI .Y0UT,NEC0,LCU,NEC0»NDIM) 

CALL CMTINV(Y0UT»NEC0,NEC0,NDIM,WKAREA) 

IN THE NEXT STEP YNORPH IS RE- INVERTED TO RESTORE XT 
TO ITS original VALUE 
CALL CMTINV(YN0RPH,LCU,LCU,NDIM,WKAREAJ 
G0TO390 

831 CONTINUE 

ARRIVE here for 33<*LTYP<*99 , NREAOaZ 
IE RATIO BANK PROCESSING 
YllsYTEMPd.l) 

HEREAFTER Yn BECOMES A TEMPORARY COMPLEX VARIABLE 
IF(NEC0.EQ,2)G0T0832 
IF(N£C0,NE.I) STOP 0832 
NECOsl 

YllsXN*XN*(YRBTR-*Yll)/ (AONE^ (YR 8 TR 4 .YI I ) *ZR8TR) 

G0T0833 

832 CONTINUE 

NEC0s2 

Y22=YTEHP(2»2) 

Vl2a(YTEMP!U2)*YTEMP(2,l) )/2. 

Y11»(Y11*Y12)*(Y22'»Y12) /(Y1UY22^Y12^Y12) 

Y11=XM*XN#(YR0TR^Y11-Y12) / (AOME* (Y11-Y12)*ZRBTR) 

833 CONTINUE 
YOUT( UDsYll 
Y0UT(2»2 )sYU 
YOUT( U2JS-Y11 
Y0UT(2tl)*-Yll 
G0T0390 

arrive here after DESIRED NSECT IS REACHED AND PROCESSED 
NEXT terminal print OUT FOR FINAL NSECT, 

840 ASSIGN 850 TO NEXSTA 
IF( IALL,GT,0)G0T0850 
IPRFLGaO 
GOT0390 

850 IF(NPERT.EQ.1)GOT0910 
IF(NPERT,EO,2)GOT01060 
LDOTMPaLDOUT 
IPRFlGsO 
LD0UTS42 


I 
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08300 
08310 
08320 ♦ 
08330 
U83A0 
08350 
08360 
08370 
08380 
08390 
O8AO0 
06610 
08620 
08630 
086A0 
08650 * 
08660 
08670 
08680 
08690 
08500 » 
06510 
08520 
08530 
08560 
08550 
08560 
08570 
08580 
08590 
08600 
08610 
08620 
08630 
08660 
08650 
08660 
08670 
08680 
08690 
08700 
08710 
08720 
08730 
08760 
08750 
08760 
08770 
087M 
08790 
08800 
08810 • 


ASSIGN 860 TO NEXSTA 
GCT0390 

AuOVE DOF.5 PRINT OUT 
86U LDOUTslCOTNP 

IF( IALL.GT.O) IHEAD»1 
IF( IALL.GT,0)GOT0660 
'<RITE(^2»10032) 

WRITE(62.1000l) 

R£AO,ITEST 

IF(ITeST.NE.l)G0T06l0 
870 lALLiO 

WRITE(62»10033) 

WRITE(62»10001) 

REAO.ITEST 

1F(ITEST.NE,1)GOT0900 

LET USER CHOOSE ANOTHER CURRENT SOURCE 
880 »<RIT£(42*10036) 

WRITE(62«10001) 

REAOtITEST 

IF(ITEST.NE.1)Q0T0190 
PERTURBATION WILL GO IN HERE 
WRITE(L0PRL'16) ( INLCSA(NINDEX»0) tMlNOEX*! ,MAXNO) 
WRITE(62*10035) 

WRITE(62. 10001) 

REAO.ITEST 

PRINT.'OUTFILE** .MDOUT 

IFUPFLG.EG.0)G0T0895 

ID*INLCSA(NSECT.6) 

MV*3 

IXCs'lEhGTH in METERS' 

I YC»» voltage magnitude* 

ITIa»Pi.OT OF voltage VS. DISTANCE* 

XlsO 

X2SXLENTH 

NXCS16 

NYC*17 

MTI=28 

XY1sXA(1.2) 

XY2*XA( 1.2) 

DO 890 IROWal.200 
00 890 IC0L«2*6 

IF{XA(IR0H,IC0L) .LT.XYI)XY1«XA(IR0W,IC0L) 

IF(XA( IROW.ICOL) •GT.XY2)XY2sXAnROW.ICOL) 

890 CONTINUE 

CALL ZPLOTM( ID.INOPLT.Mv.XA.NOIPLT.a.IXC.IYC. 

6 ITI ,Xl,X2,NXCfNYC«.‘;n .XY1.XY2) 

895 CONTINUE 

IF (ITEST.NE'-OJSTOP 5800 
CALL 0ETACH(LCPRL.ISTAT.) 

CALL 0ETACH(LD0UT.ISTAT«) 

G0T020 

THIS SECTION IS THE IMPLEMENTATION OF PERTURBATION THEORY 
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0B82O * 
08830 * 
08840 » 
08850 ♦ 
08860 
08870 
08880 
08890 
08900 
08910 
08920 * 
08930 * 
08940 
08950 
08960 
08970 
08980 
08990 * 
09000 * 
09010 
09020 
09030 
09040 
09050 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 
09140 
09150 
09160 
09170 
09180 
09190 
09200 
09210 
09220 
09230 
09240 
0925- 
09260 
09270 
09280 
09290 
09300 
09310 
09320 
09330 


Ar4D PE«^MTS THE determination OF EFFECTS DUE TO VARIATION 
I‘i SI.NGLE LOADS AT aHY POINT IN NETWORK 

l\ aHAT KOLLTvvS hSECLD 13 SECTION WHERE LOAD CHANGE TAKES PLACE 
MSECPL is SECTION AT WHOSE £r D aE DESIRE TO OBTAIN THE RESULT 
900 WRITE (42 » 10036) 

READ,N5ECLD 

WRlTE(42»lQ02e)NSECLD 

WRITE(42»10001) 

RFAT,ITEST 

IFi ITEST.NE.0)G0T0900 

next WE determine IF NSECLD MAS BEEN ANALYZED IF NOT WE ANALYZE 
IT 

NPERT=1 

ND=N5ECLD 

LSDIGsMCD(INLCSA(ND*13) »10) 

KNSECTsND 

IF(LSDIG.LT,2)G0T0670 

UPON RETURN WE ARE ASSURED HAT NSECLD HAS BEEN ANALYZED 
we MUST ONCE AGAIN READ FILE TO ASCERTAIN LCU AND NECO 
910 LTYPsINLC5A<NSECLD,6) 

IAP£C=INLC5A(NSECLDU4) 

ASSIGN 950 TO NEX5TA 
G0T0550 

920 WRITE(42»10037)NECC 

READ,(CUREV(I) «I=l»NECO) 

CALL CVEPRT(CUREV,NEC0*NDIM,42) 

WRITE(42»10001) 

REAOtITEST 

'-F(ITE5T.NE.0)G0T0920 
930 WRITE(42*10038)NECO*NECO 

read. ( (DlY2 ( I . J) .JsI.NECO) . I=I«NEC0) 

Call cmtprt (Dly2.neco.noim.42) 

940 CONTINUE 

w’RITE(42il0001) 

REA0.ITE5T 

IF(ITEST.NE.O)GOTQ930 

U0T0980 

950 NECOsNRECO 
NLORCOsNRECO 
DO 960 Isl.NDIM 
960 CUREV{I)5ZER0 
WRITE(4?.10039) 

WRITE(42.l000l) 

read.itest 

IF{ ITEST.NE.UGOT0920 
WRITE(42.L0040)NcC 0*NEC0.NEC0.NEC0 
READ.( (DLY2(I.J) .J=l.NECO) .Isl.MECO) 

CALL CMTPRT(DlY2.NEC0.N0IM.42) 

970 CONTINUE 

WRITE(42«10001) 

read.itest 

1F( ITE5T.NE.O)GOT0950 
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093A0 

ft 

^ttXT COMPUTE DEuV2»CUPTB AT NSECLD 

09350 

* 

•)0TF*THI5 OCPFNDS only 00 0LY2 SECTION PARAMETRWS 

09360 


IT Ib INOEPEOnE’-lT OF RESULT SECTION, 

09370 


EO, 22 P(< 6 OF matrix ANALYSIS OF EFFECTS REPORT 

09380 

98(1 

Du 1000 l«l,NF.CO 

09390 


00 990 j*u.>*t;co 

09400 


YTE^'P2 ( I O) »Y0UT( I ,J) ,Y2X U »J) ♦DLY2U »J) 

09410 

9'>0 

CONTINUE 

094i0 

lOOO 

CONTINUE 

094 30 


CALL CMT2ROtYTEMP2,MECO,NECO»NDlM) 

09440 


CALL CMTlNV(YTEMP2,NEC0,NEC0*ft0lM,WXAREA) 

09450 


call CMTMPY(YTEMP2»DLY2,YTEMP,NEC0.NEC0,NEC0»N0IM) 

09460 


CALL CMT2RO(YTEMP,NECO«NECO»NDIM) 

09470 


DO 1020 laUNOlM 

09480 


OELV2 ( I ) *2ER0 

09490 


IF( I.GT.NEC0)G0T0l020 

09500 


00 iOlO J«l,NEC0 

0951C 


DELV2 ( I ) aDELV2 ( I ) -YTEMP ( I « J) #VPH0UT ( J) 

09520 

10)0 

CONTINUE 

09530 

1020 

CONTINUE 

09540 


00 1040 laUNOIM 

09550 


CUPTB( I ) aZERO 

09560 


IF( I,GT.NECO)GOTCi040 

09570 


CUPT3(n«CUR£V{I) 

09580 


00 1030 Jal.NECO 

09590 


CUPTBl I ) *CUPTB( D-DLY2 ( I , J) • (VPHOUT ( J) 4DELV2 ( J) ) 

09600 

1030 

CONTINUE 

09610 

1040 

CONTINUE 

09620 

• 

IN THE next section THE USER DEFINES RESULT SECTION 

09630 


and we verify that the section has R ,.n analyzed 

09640 

* 

IF NOT. HE PROCEED TO ANALYZE IT, 

09650 

1050 

4R1TE(42. 10041) 

09660 


READ,NSECRL 

09670 


WRITE(42»1002fl) MSECRL 

09680 


4RITE(42.1000D 

09690 


read.itest 

09700 


IF( 1TEST,NE.0)G0T01050 

09710 


NPERT*2 

09720 


NOaMSECRL 

09730 


LS0IGaM0D(INLCSA(ND%l3» ,10) 

097**0 


XNSECTaNO 

09750. 


IF t LSOIG. lt* 2) G0T0670 

09760 

• 

4E ONCE again KFAO FIlE TO ASCERTAIN LCU AND NECO 

09770 

1060 

LTYP*1nLCSA<NSECRl,6) 

09780 


lARECaINLCSA(N5ECRL, U) 

0979C 


assign 1070 To NEXSTA 

09800 


G0T055O 

09810 

• 

UPON RETURN WE ARE ASSURED THAT NSECRL HAS BEEN ANALYZED 

09820 

» 

NEXT HE determine LOCATION OF NSECRL RELATIVE TO NSECCD 

09830 

O 

O 

NDaNSECRL 

09840 


NECOaNPECO 

09850 

« 


1*0 
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09860 


IF (nSECRL.N£.N5EClD)GOTO110O 

09870 


wRITE(42»10043» 

09880 


Call CVcPRT (VP rtOUT»NtCO.NniM,42 » 'voltage before change*) 

09890 


00 lOPO I=l*MECO 

09900 


0ELV2(I)*ZER0 

09910 


00 1080 JsUNECO 

09920 


0ELV2 ( I ) =0ELV2 ( I ) ♦YTE^Pz ( I . J) *CUPTB( J) 

09930 

1080 

CONTINUE 

09940 


WRITE(42»10044) 

09950 


CALL CVEPRT(DELV2*NEC0»N0IM,42*'CHANGE IN VOLTAGE') 

09960 


DO 1090 NAsl,NECO 

09970 


VSJM(NA) =VPHOuT (NA) ♦0ELV2 (NA) 

09980 

1090 

CONTINUE 

09990 


WRITE(42*10045) 

10000 


CALL CVEPRT(VSUM,NEC0,NDIM,<*2»*V0LTAGE AFTER CHANGE') 

lOOlO 


OOT01420 

10020 

IlOO 

NDsINLCSA(N0*2) 

10030 


IF(N0,E0.NSECL0)G0T01150 

10040 


IF(MD.E0.0)G0T01110 

10050 


IF( INLCSA (ND*3) .EO.O.OR, INLCSA (N0«4) .EOaO) GOTOl 100 

10060 


UUi 

10070 


I5TAK(I)=ND 

10080 


GOTOllOO 

10090 

lllO 

NDsNSECLO 

10100 

1120 

N0=INLCSA(M0»2) 

10110 


IF (ND.EQ.NSECRL) GOTO 1280 

10120 


IF(ND,NE.0)G0T01130 

10130 


WRITE(42*10042) 

10140 


STOP 1154 

10150 

1130 

IF(InlCSA(NOO) .EQ.0,0R. INLCSA ( no »4) ,E0,0) GOTO 1 120 

10160 


DO 1140 Jsl»l 

10170 


IF(N0.EQ.ISTAK{J) )G0T0U10 

10180 

1140 

CONTINUE 

10190 


Q0T0U20 

10200 

* 

the FOLLOifliNG CODE CORRESPONDS TO THE SITUATION WHEN NSECRL 

10210 

« 

IS DOWNSTREAM FROM NSECLD. IN THIS CASE DELVI=T OELV 3 

10220 

• 

first WE CREATE DELV3 

10230 

* 

AT THIS POINT NECO IS THAT OF RESULT NODE IT MUST BE RESET 

10240 

« 

TO LOAD CHANGE NODE I.E. TO NLDRCO 

10250 

1150 

NECOsNlDRCO 

10260 


00 1170 UltNOIM 

10270 


0ELV3(I)=ZER0 

10280 


IF(I.GT,NECO)GOTOll70 

10290 


00 1160 JsUNECO 

10300 


DELV3 ( I ) =0ELV3 ( I ) ♦YTEMP2 ( I » J) *CUPTB( J) 

10310 

1160 

CONTINUE 

10320 

1170 

CONTINUE 

10330 


NKAYsNSECLD 

10340 

1130 

I = l 

10350 


ND=NSECRL 

10360 

1190 

ISTAK(I)sN0 

10370 


N0=lNLC5A(N0f2) 
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10380 


IF(i'ID,EO.MCAY)GOT01200 


10390 


Isin 


10900 


G0T01190 


10910 


this 5EG»E^4T analyzes THE DLTVl OF EACH SECTION IN STACK 

10920 

1200 

J=I 


10930 

1210 

N0=ISTAK(J) 


10990 


IAREC=INLCSA(ND,19) 


10950 


LTYPs1NLCSA(ND,6) 


10960 


assign 1220 TO NEXSTA 


10970 


G0T0550 


10980 

« 

UPON RETURN HERE THE VALUE OF LCU READ SHOULD EQUAL 

NECO 

10990 

1220 

NECOsNRECO 

10500 


DO 1290 Ksl,NOIM 


10510 


DELVl tK)=ZEKO 


10520 


IF(K.GT.NECO)GOT01290 


10530 


DO 1230 L=1,LCU 


10590 


DELVl (K)sDELVl (K ) ♦VTOPH (K ,L ) *DELV3 (L > 


10550 

1230 

CONTINUE 


10560 

1290 

CONTINUE 


10570 


IF(J,EQ.1)G0T01260 


10580 


J=J-1 


10590 


DO 1250 K=1,NEC0 


10600 


DELV3(K)sDELV1 (K) 


10610 

1250 

CONTINUE 


10620 


00TO1210 


10630 

* 

NOIE last RECORD READ IS AT NSECRL ANO NECO OF OUTPUT 

IS 

10690 

* 

FSTA3LISHED 


10650 

1260 

WRIT£i92*10093) 


10660 


CALL CVEPRT(VPH0UT,NEC0,NDIM,92«*V0LTAGE BEFORE CHANGE* 

) 

10670 


WRITE192* 10099) 


10680 


CALL CVEPRT (DELVl *NEC0*NDIM*92. 'CHANGE IN VOLTAGE*) 


10690 


DO 1270 NAsl»NECO 


10700 


VSUH(NA)=VPHOUT(NA) ♦DELVl (NA) 


10710 

1270 

CONTINUE 


10720 


WRITE(92»10095) 


10730 


CALL CVEPRT(VSUM,NEC0,N0IM,42» 'VOLTAGE AFTER CHANGE*) 


10790 


G0TO1920 


10750 

1280 

NjAYsNSECRL 


10760 


IBRANsO 


10770 

1290 

NDsNSECLD 


10780 


1 = 1 


10790 

1300 

ISTAK(I)=ND 


10800 


NDsINLCSA (ND*2) 


10810 


IF (ND.EQ«NJAY)G0T01310 


10820 


I = Ul 


10830 


G0TO13O0 


10090 

* 

THIS SECTION DOES THE ANALYSIS 


10850 

1310 

J = I 


10860 


ND=ISTAK (J) 


10870 


IAREC=INLCSA(ND,U) 


10880 


LTYPsINLCSA(ND»6) 


10890 


ASSIGN 1320 TO NEXSTA 
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10900 
10910 
10920 
10930 
10940 
10950 I 
10960 
10970 
10980 
10990 
llOOO 
llOlO 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
1 1400 
11410 


PAGE 22 


QOT0550 

► 9EC0RD READ FSTAt'LlSHPS LCU AND NPECO FORSECTION AFTER MJAY 

* the lcu value is saved as jlcu and becomes dimension of result 

1320 NECOsNRtCC 
JLCUslCU 

Call cmtaoc (yin,ymorph»zin%lcu,.'idim) 

Call cmtinv (Zin,lcu»lcu,ndim,v»kapea) ' 

► note vtoph has neco Rows and lcu columns 
Call CMTRANI vtoph ,YTEMP, neco fLCU^NDIM) 

► YTEMP now will have lcu rows and neco columns 

► YTEMPi will also have lcu rows and neco columns 
Call cmtmpy (Zim,ytemp,ytempi ,lcu»lcu,neco»noim) 

CALL CMTCPY ( YTEMPi, ZIM. LCU, NECO, NOIW) 

^ from now on first dimension will be jlcu 

1330 IF (J,E0.1)60T01350 
J=J-l 

N0=ISTAK <J) 

IAREC=INLCSA(ND,14) 

LTYPsINLCSA(N0,6) 

ASSIGN 1340 TO NEXSTA 
G0T0550 

NOTE WHEN RETURN FRqM READ ZIN -(ILL BE JLCU X NECO 
neco of old SECTION WILL BE EQUAL TO LCU OF NEW ONE 
1340 NECO=NRECO 

CALL CMTRAN (VTOPH, YTEMP, NECO, LCU, NDIM) 

call CMTHPY (ZIN , YTEMP , YTEMP l , JLCU , LCU , NECO , NO I M ) 

CALL CMTCPY( YTEMPi, ZIN, JLCU, NECO, NDIM) 

G0T01330 

IN THE following DELV3 MUST COME OUT WITH JLCU ELEMENTS 
also last SECTION READ WILL BE NSFCLD WHOSE NECO WILL 
will HAVE SAME DIMENSIONS AS CUPT3 
1350 DO 1370 X=1,NDIM 
0ELV3 (X) sZERO 
IF (K.GT, JLCU) GOTO 1370 
DO 1360 L=l,NECO 

0ELV3 (K) sOELV3(K) *ZIN(K,L)*CUPTB(L) 

1360 CONTINUE 
1370 CONTINUE 

IF( IBRAM.EO.l ) G0T01400 
NOsNjAY 

IARECsINLCSA(ND,14) 

LTYPsINLCSA(N0,6) 

ASSIGN 1380 TO NEXSTA 
G0T0550 

1380 NECOsNRECO 

WRITE(42, 10043) 

CALL CVEPRT(VPH0UT,NEC0,NDIM,42,*V0LTAGE BEFORE CHANGE*) 

WRITE(42, 10044) 

CALL CVEPRT(DELV3,NEC0,N0IM, 42, ‘CHANGE IN VOLTAGE*) 

DO 1390 NAsl,NECO 

VSUM(NA) sVPHOUT(NA) ♦DELV3(NA) 

1390 CONTINUE 
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11420 

11430 

114^0 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 

11810 

11820 

11830 

11840 

11850 

11860 

11870 

11880 

11890 

11900 

11910 

11920 

11930 


I 'VOLTAGE AFTER CHANGE') 


•'RIT£(42«10045) 

CALL CVEPRT(VSUM,NEC0»NDIM»42« 

00TC1420 
l**ao NKAYa^JjAY 
GOTOl 180 
1410 ISRANal 
NjAYsND 
QOT0129O 

1420 WRITE(42»1004o) 

WRITE(42»10001) 

REAOflTEST 

IF(ITE5T.NE,1)GOT01050 
*<RITE (42«10047) 

»<RITE(42»10001) 

nLAD.ITEST 

IF< ITEST,NE.1)60T0900 

NPERTaO 

G0T0860 

* NOW done except run Perturbation 

* THIS PROGRAM USES FOLLOWING PSUEOC MACRO SEQUENCES 

* 40 L SEQUENCE 

* DOES power calculation 

4 SETS STATUS DIGIT TO 2 

* WRITES NT file RECORD 

* RETURNS TO NEXSTA 

* 201-204 SEQUENCE 

* READS NT FILE AND IN ALL CASES GETS 

4 IF NECO IS undefined (NEC0*-1) IT SETS 

4 RETURNS TO NEXSTA 

4 211-214 SEQUENCE 

4 WRITES NT RECORD 

4 G0T0105 sequence 

4 105 SEQUENCE 

4 WRITES TO ASCII OUTPUT FILE 

4 RETURNS TO NEXSTA 


LCU AND NRECO 
NECOsNRECO 


cnphi 

CSPHI 
CUPHI 
DAPRYLI J 

darbtrli 

DASECDLI 

DATAIN 

OATRANLI 

DAWKINI J 

DLTVO 

DLY2 

dlyin 

iarec 

lASN 

ICONO 

IDATIN 


NORTON equivalent SOURCE CURRENT AT OUTPUT OF PARENT 

section-phase 

SOURCE CURRENT VECTOR-PHASE 
CURRENT VECTOR INTO SECTION-PHASE 

random binary file containing primary 


LOAD DATA 
RATIO BANK transformer DATA 
SECONDARY LOAD DATA 


RANDOM BINARY FILE CONTAINING 

random binary file containing 

ASCII INPUT FILE 
RANDOM BINARY FILE CONTANINQ DISTRIBUTION TRANSFORMER DATA 
ASCII FILE CONTAINING NETWORK LOGICAL DESCRIPTOR 
COMPLEX MATRIX 

COMPLEX matrix REPRESENTING OFF DIAGONAL ELEMENTS OF Y2LEX 
COMPLEX matrix APPROXIMATION TO YINEX 
RANDOM record ADDRESS ASSOCIATED WITH FILE DARBTRLI 
ASSUMPTION CODE 

INTEGER length CODE FROM DNWKINLI 

terminal (Eo,o) vs file (NE.o) control flag FOR input data 
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• 

IDHBTR 

11950 

* 

IPRFlG 

11960 

ft 

ielem 

11970 

ft 

IFCODE 

11980 

ft 

ifile 

11990 

12000 

ft 

ft 

ihead 

12010 

ft 

INORHO 

12020 

ft 

insects 

12030 

ft 

lOMCD 

12040 

ft 

lOPT 

12050 

ft 

IPH5 

12060 

ft 

IPLTF 

12070 

ft 

ipflg 

12080 

ft 

I PRIM 

12090 

ft 

IPROC 

12100 

ft 

I QUANT 

12110 

12120 

ft 

ft 

IRECD 

12130 

ft 

IRES 

12140 

ft 

IRTRAN 

12150 

ft 

I5ECD 

12160 

ft 

ISELEC 

12170 

ft 

ISTM 

12180 

ft 

ITEMP 

12190 

ft 

ITTM 

12200 

ft 

ITTY 

12210 

ft 

ivolt 

12220 

ft 

I2NGR 

12230 

ft 

JROOT 

12240 

ft 

KDRBTR 

12250 

ft 

kelem 

12260 

ft 

KISRC 

12270 

ft 

KPRIM 

12280 

ft 

KTHSEC 

12290 

ft 

KVTSU 

12300 

ft 

KYSRC 

12310 

ft 

LCU 

12320 

12330 

1 

LCU 

12340 

ft 

LDAINsio 

12350 

ft 

LOOUT 

12360 

ft 

LDPRLS20 

12370 

ft 

LDPU *25 

12380 

ft 

LD5£C=ii 

12390 

ft 

LDTl 

12400 

ft 

length 

12410 

ft 

LEVNO 

12420 

ft 

levpar 

12430 

ft 

LOOTMP 

12440 

ft 

LOUT *16 

12450 

ft 

LPRIMai2 
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Ratio hank transfor^^ep ident read from darbtrli 
Flag used to control printout 


fre' jency code 

^lau to Control opening of random files temprari 
AND TEMPRAR2 

HEADER PRINT CONTROL FLAG 

OHM Code 

NUMBER OF ELEMENTS USED (IN CASCADE) TO FORM NETWORK 
OHMCODE associated WITH CURRENT OPEN DPULIJKN FILE 
OPTION control of EXACT, DIAGONAL APPROXIMATE CALCULATIONS 
phase connection CODE 

PLOT flag USED TO PREVENT OVERWRITING PLOT ARRAY 
PLOT FLAG TO BYPASS PLOTTING LOGIC 
PRIMARY load code 

VECTOR CONTAINING ELEMENT SEQUENCING 

MODAL (EO.O) VS PHASE (NE,0) CONTROL FLAG FOR INPUT 

ADMITTANCES 

RANDOM RECORD ADDRESS ASSOCIATED WITH FILE NTLIJKNM 
OHM CODE FROM ONWKINLI 

DISTRIBUTION TRANSFORMER TYRE CODE PLUS I 
SECONDARY load TYPE CODE 

RANDOM (EQ.O) VS MANUAL (NE.O) DETERMINATION OF SEQUENCE 
ISTM^lsLAST record IN DASECDLI FILE 
TEMPERATURE CODE 

ITTM4.1SLAST record IN DATRANLi FILE 
DISTRIBUTION TRANSFORMER TYPE CODE 

CURRENT (ED.O) VS VOLT tNE.O) CONTROL FLAG FOR SOURCE 

integer grounding admittance 

ROOT SECTION NUMBER 

Flag to control opening darbtrli 

VECTOR OF FLAGS TO INDICATE IF A SECTION IS VALID 

flag TO CONTROL OPENING DAPRYLiJ 

flag to CONTROL OPENING DASeCDLI AND DATRANLI 

Flag to control opening sulijknm 


number OF effective CONDUCTORS ASSOCIATED WITH 
NEW YIN (NTWKER) 

NUMBER OF EFFECTIVE CONDUCTORS INPUT TO NEW SECTION (NTWKAN) 

FRN for ONWKINIJ 

FRN FOR ASCII OUTPUT FILE 

FRN for NTLIJKNM 

FRN FOR DPULIJKN PER UNIT LENGTH DATABASE FILE 
FRN FOR DASECDLI SECONDARY LOAD DATABASE FILE 
FRN FOR TEMPRARl 
CODED length 

level of SECTI0NsInlCSA(NSECT,5) 

LEVEL OF PARENT 
TEMPORARY FRN SAVE 
FRN FOR NTWKOUTl 
FRN FOR DAPRYLIK 
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12460 

* 

LRSTR=14 

12470 

» 

LSDIG 

12480 

* 

LSUBN 

12490 


LTUP 

12500 

* 

LTRANS13 

12510 

» 

LTYQ 

12520 

tt 

LTYP 

12530 

* 

LVT5U 

12540 


MAXNDS512 

12550 

* 

MAXRUN 

12560 

ft 

MOOUT 

12570 

ft 

MDPRL 

12580 

ft 

MDPU 

12590 

ft 

MDTl 

12600 

ft 

MDT2 

12610 

ft 

MECO 

12620 

ft 

MNTWK 

12630 

ft 

MPRIM 

12640 

ft 

MPHS 

12650 

ft 

MRBTR 

12660 

ft 

MREC=750 

12670 

ft 

MTRAN 

12680 

ft 

ncheck 

12690 

ft 

NDIM =4 

12700 

ft 

MDIPLT 

12710 

ft 

NDPUZ 

12720 

ft 

ndsec 

12730 

ft 

NECO 

12740 

ft 


12750 

ft 

NECO 

12760 

ft 


12770 

ft 

nioen 

12780 

ft 

NLCSA=14 

12790 

ft 

nomax 

12800 

ft 

NPAR 

12810 

ft 

NPER 

12820 

ft 

NPRISZS38 

12830 

ft 

NRBTRstb 

12840 

ft 

NROATsi 

12850 

ft 

nread 

12860 

ft 

NRECO 

12870 

ft 


12880 

ft 

NRECO 

12890 

ft 


12900 

ft 

NSECM 

12910 

ft 

NSEOV=i 

12920 

ft 

ntrnsz 

12930 

ft 

NTRPH 

12940 

ft 

ntwkno 

12950 

ft 

NVTSZ 

12960 

ft 

POU 

12970 

ft 

POWER 
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FRN For DaRBTRLI patio BAfItC transformer database file 

LARGEST DIGIT 

FRN For ascii SlJB^JETWORK INPUT PARAMTER FILE SUBNTLMN 

LTYP associated WITH PREVIOUS READ OF DPULIJKN 

FRN FOR DATRAMLI DISTRIBUTION TRANSFORMER DATABASE FILE 

DUMMY TO BE DELTED FROM FINAL OPERATIONAL FORM 

LINE TYPE code 

frn for SULIJKHM 

DIMENSION limit TO MAXIMUM NUMBER OF SECTIONS 

CHARACTER VARIABLE FOR ASCII OUTPUT FILE 
filename variable for NTLIJXNM 
character variable for filename DPULIJKN 

CHARACTER VARIABLEs'TEMPRARl • 

character VAR i able* ‘TEMPRARZ* 

SAVED VALUE OF NECO FROM HEADER RECOD 
filename variable for DNWKIMIJ 
character VARIABLE FOR FILENAME OAPRYLIK 
filename variable for NTWKOUTl 
CHARACTER VARIABLE FOR FILENAME DARBTRLI 
RECORD SIZE FOR NTLIJKNM 
character VARIABLE FOR FILENAME DATRANLI 
STOP CODE 

DIMENSION OF ADMITTANCE ARRAYS 

DIMENSION OF PLOTTING ARRARY 

RECORD SIZE FOR DPULIJKN 

character VARIABLE FOR FILENAME DASECDLI 

NUMBER OF EFFECTIVE CONDUCTORS ASSOCIATED WITH 

OLD yin (NTWKER) 

NUMBER OF EFFECTIVE CONDUCTORS AT OUTPUT OF PRESENT 
SECTION (NTWKAN) 

NETWORK IDENTIFICATION NUMBER 

NUMBER OF RECORDS USED TO CONTAIN INLC5A ARRAY 

total number of sections 

parent SECTIONsINLCSA(NSECT,2) 

flag used during perturbation analysis 

RECORD SIZE FOR DAPRYLIJ 
RECORD SIZE FOR DARBTRLI 

number of RECORDS USED TO CONTAIN A SINGLE SECTION DATA 
pointer to correct read FORMAT AND BASED ON LTYP 
number of effective conductors READ IN FROM 
DPULIJKN (NTWKER)' 

NUMBER OF EFFECTIVE CONDUCTORS AT OUTPUT OF NEW 

SECTION (NTWKAN) 

file DASECDLI CONTROL PARAMETER 

NUMBER OF records USED TO CONTAIN INSEOV VECTOR 

RECORD SIZE FOR DATRANLI 

phase connection code for DISTRIBUTION TRANSFORMER 
NETWORK NUMBER (IN CASCADE) 

RECORD SIZE FOR SULIJKNM 
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NTWKANSA 
12980 * 

SULI JKNM 

12990 

* 

TVOO 

13000 


TVOEX 

13010 

* 

TVOEX 

13020 


VOUTMP 

13030 


vphin 

130A0 

ft 

VPHOUT 

13050 

» 

vtoph 

13060 

* 

Y2K 

13070 

ft 

Y2L0I 

13080 

ft 

Y2LEX 

13090 

ft 

YIN 

13100 

ft 

YIND 

13110 

ft 

YINEX 

13120 

ft 

YLOAD 

13130 

ft 

YLTOT 

131<^0 

ft 

YNORPH 

13150 

13160 

ft 

ft 

YOUT 

13170 

13180 

ft 

ft 

YPUL 

13190 

ft 

YSORPH 

13200 

ft 

ZPUL 

13210 


END 
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RANDOM BINARY FILE CONTAINING COMPUTED SUBNET PARAMETERS 
COMPLEX VECTOR ERPRE5ENTING DIAGONAL VOLTAGE TRANSFER RATIO 

complex matrix 

COMPLFX matrix modal VOLTAGE TRANSFER RATIO 

temporary storage of voltage vector from parent to SUN 

VOLTAGE VECTOR AT INPUT TO SECTION 
VOLTAGE VECTOR AT OUTPUT OF SECTION-PHASE 
VOLTAGE TRANSFER RATIO MATRIX 

SECTION TOTAL TERMINATION ADMITTANCE MATRIX-PHASE 
COMPLEX VECTOR REPRESENTING DIAGONAL ELEMENTS OF Y2LEX 
COMPLEX matrix exact SECTION TERMINATION ADMITTANCE 
SECTION INPUT ADMITTANCE MATRIX-PHASE 

COMPLEX VECTOR REPRESENTING DIAGONAL APPROXIMATION TO YINEX 

COMPLEX matrix EXACT SECTION INPUT ADMITTANCE 

TOTAL EXTERNAL CONNECTED LOAD ADMITTANCE MATRIX-PHASE 

COMPLEX matrix TOTAL SUMMED LOAD ADMITTANCE 

NORTON equivalent SOURCE ADMITTANCE AT OUTPUT OF 

PARENT SECTION-PHASE 

ADMITTANCE MATRIX LOOKING BACK INTO SECTION OUTPUT 

terminals-phase 

LINE ADMITTANCE PER UNIT LENGTH 

SOURCE ADMITTANCE MATRIX-PHASE (SOMETIMES TEMPORARY ARRAY) 
LINE IMPEDANCE PER UNIT LENGTH 
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#♦♦#»*♦**<»#*#*♦ ^^♦^^*»**^*#***^^# •*♦*##**#♦##***#♦*#♦#*♦• #***##♦#***#»*##*♦♦ 

»'JTWKEPS<* 06/01/Hl Q:16 AM 

***•#***♦ #***<»»*^## ^ » ♦*♦*#■ 4 # ♦#♦•##♦*•*#***♦**•<»*♦♦*♦**#*#*♦**♦* 


000 10*# RUfiH *e^4TWKERH4^(OLI8«COREsA6tOLIBRAPY<*;LIBRARY/IMSL»R5 
00020*# LIRRARY/OLDTSLIB^R 

00030 * THIS PCR VERSION CONTAINS MODIFICATIONS FOR: 

00040 * RATIO sank TRANSFORMER PROCESSING-SINGLE PHASE 

00050 * eliminated many unused VARIA6LFS 

00060 » TIDIED JP structure SOMEWHAT 

00070 » REAP DPUUKLM FILES USING A DIRECTORY VECTOR 

00080 * READ DPUlJKLM FILES HAVE ONE DECORD PER LINE TYPE 

OOORO * CONSIDERABLE SOPHISTICATED L(-CIC FOR CHECKING 

OOlOO ♦ BINARY TREE C0NSI5TANCY 

OOllO * NECO-LCU-NCU CONSISTANCY 

00120 * line SEQUENCING IN DNwKiNiJ EXPECTED TO BE lOOOtl 

00130 • ALSO THE method OF ADDRESSING LDPRL FILE HAS BEEN 

00140 * CHANGED TO BE NLINE-982 WHICH ACCOUNTS FOR 18 

00150 * header and INLCSA RECORDS 

00160 * TO OBTAIN A COMPLETE DIAGNOSTIC ASCII OUTPUT OF ALL 

00170 * ADMITTANCES WITH ANNOTATION, REMOVE ALL ♦** COMMENT 

00180 * characters-rcrustay 

00190 * Iv THIS VERSION JTG HAS ADDED THE FOLLOWING CAPABILITIES: 

00200 * increasing lengths by multiplying WITH PMULT 

00210 * addition of real LOAD AT EVERY DT FOR DISTRIBUTED LOADING 

00220 * LOADING. SEE lOPC CONTROL FLAG IMBEDDED IN PROGRAM 

00230 * ALSO AN OPTION HAS BEEN INCLUDED FOR READING DISTRIBUTION 

00240 ♦ transformer ADMITTANCE DATA FROM A FILE TRANFILE (EFFECTIVELY) 

00250 * VIA A SUBROUTINE TRANAD. 


00260 * 
00270 * 
00280 • 
00290 * 
00300 • 
00310 * 
00320 * 
00330 * 
00340 * 
00350 • 
00360 • 
00370 • 
00380 ♦ 
00390 * 
00400 • 
00410 • 
00420 * 
00430 * 
00440 ♦ 
00450 * 
00460 * 
00470 ♦ 
00480 * 
00490 ♦ 


THIS program determines THE DRIVING POINT ADMITTANCE 
MATRICES AND 


the VOLTAGE transfer RATIO MATRICES FOR A MULT I CONDUCTOR TRANS- 
MISSION line NETWORK. THE NETWORK IS SPECIFIED BY THE USE OF 
SEVERAL DATA BASES. THESE APE: 

1 0NWKIN12 network connection INFORMATION SEQUENCIAL ASCII 

2 DPU12345 PER UNIT LENGTH LINE PARAMETERS RANDOM BINARY 

3 DASeCDU secondary LOAD ADMITTANCES RANDOM BINARY 

4 0RBTR123 AbCD MATRICES FOP RATIO BANK TRANSFORMERS 

RANDOM BINARY 

6 OPRIM123 primary load DATA FOR LTYPE > 10000 RANDOM BINARY 

7 0TRANN12 ANALYTIC TRANSFORMER PARAMETER FILE FOR I0PCa0iU2 
NOTEsIN ABOVE NUMBERS REPRESENT CONCATENATED STRINGS OF 

CODE DESIGNATIONS DESIGNED, BY MR. R.C. RUSTAY,TO ALLOW 
cataloging AND RETRIEVAL OF THE APPROPRIATE INFORMATION. 

Replacing all b»**b with bbpbb will create output ascii file 
WITH complete admittance analysis, besure to use a temporary 
ascii file TO SAVE NEW SOURCE. IE DONOT CHANGE ORIGINAL 
THE OUTPUT FROM THIS PROGRAM WILL CONSIST OF A RANDOM BINARY FILE 
NT123456 WHICH IS AlSO CODED wITH A CONCATENATED STRING OF CODE 
DESIGNATIOtiS. 

NOTE NDIM*4 LIMITS PROGRAM TO IASNa2»4 

NOTE THAT ARRAYS AM,liM,CM ARE NOT USED IN THIS OR COMPANION 
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00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

OlOlO 


* program hTW|fAf!Si; ARE nCLUCED IN THE FUTURE EVENT THEY MAY BE 

* needed to REr'RESe^■T OTHER APPARATUS 

loorn FnSSAT(»THIS progra.j evaluates the driving point admittance*/ 

6 '"’ATFICES AfiC VCLTAGf. TRANSFER RATIO MATRICES' /*TH£ FOLLOWING** 

6 • specifications DEFI IE THE PUM- PARAMETERS :'/»FREQ CODE •* 

6 ' - 2 DIGITS fTE^'P CODE - 1 DIGIT *«*ASSUM COOE*» 

6 • - I DIGIT »*lETv^0R< ID MUMfiER - 2 DIGITS*/) 

10001 F0RmaT(//*FRECUENCY code** «I 2«10X»*TEMPERATURE COOEa* *13/ 

6 'ASSUMPTION CODEs * , I 3 ,9X* 'NETWORK NUMBER** «l4///yiOX* 

6 'IS THIS DATA CORRECT ?'/'IF YES HIT RETURN* *5X* * IF NO ENTER 1 '♦ 
6 'THEN HIT RETURN */) 

10002 FORMAT! *ENTER PERCENTAGE MAGNITUDE MEAN* 5T0. DEV AND ♦/ 

6 * phase ANGLE MEAN*STD,DEV (DEGREES) FOR LOAD*) 

10003 FORMAT!* MEAN **F6*1** PER CENT *** MAGNITUDE '«* DEV ** 

6 F6.1** PER CENT */* WEAN **F6.1** DEGREES ANGLE DEV ** 

6 F6.1** DEGREES*/* ENTER 1 IF WRONG ELSE CR* ) 

10004 FORMAT!* MULTIPLYING FACTOR FOR LENGTH** *Fl0,7) 

10005 F0RMAT!6HDNWKIN*I2,1H;) 

10006 FORMaT(//*NETWORK IDENTIFICATION NUMBER IS IN ERROR'// 

6 'ASSIGNED NUMBER** *I4*10X**0ATA NUMBER** » l4// 'CHOOSE OPTIONS'/ 

6 • TYPE 1 TO CONTINUE PROCESSI NG * / • TYPE 2 TO RETURN TO THE'* 

6 * beginning of THE PROGRAM */ 'TYPE 3 TO ABORT'/'HIT RETURN') 

10007 F0RMAT!//*DNWKIN DATA BASF RECORD/READING ERROR ENCOUNTERED* / 

6 'RECORD NUMBER *I4.' HAS LINE NUMBER '* U/ 'PROGRAM ABORTS') 

10008 format (/'ENTRY ON LINE NUMBER * ♦ I 5 . ' IS A SECOND ENTRY FOP'* 

6 ' SECTION **I5/*PR0GPAM ABORTS') 

10009 F0RMAT(//*ENTRY at line '*15*' INDICATES MORE THAN TWO** 

6 • 3RANCES FROM SECTION* , I5/*REC0NFIQURE NETWORK AS A BINARY** 

6 * TREE by inserting ZERO LENGTH SECTIONS* /*PROGRAM ABORTS*) 

10010 format !//*THE ONWKIN file contains TWO ROOT 5ECT:oNS*« 

& 'THE SECOND ONE IS ON LlNE**l5*' AT SECTION **15/ 

5 'THE FIRST ROOT IS *♦ 1 5/ 'PROGRAM 'BORTS*) 

10011 FORMmT!//*ENTRY ON LINE *«I5** INDICATES DUPLICATE ENTRY OF ** 

6 *A SON AT SECTION* * IS/'EITHER A LOOP EXISTS OR ENTRY ERROR*/ 

6 'NETWORK MUST BE CONFIGURED AS A TREE »/ 'PROGRAM ABORTS') 

10012 FORMAT!* AT L I N£ • * 1 6 « * SECT I ON * * 1 6 » * HAS NONEXISTANT S0N*,l6) 

10013 FORMAT! 'SECTION *,I5*'AT LINE **15** HAS A PARENT SECTION */ 

6 * number *»I5** AT uINE **I5« 'WHICH IS A TERMINAL SECTION */) 
lOOU FORMAT!* SECTION *«I5*' AT LINE **I5** AND ITS PA6RENTY*/ 

6 * section **I5** at line **I5** ARE NOT COMPATIBLE */) 

10015 FORMAT! 'PATH STARTING WITH TERMINAL SECTION *.I5» 

6 * IS A LOOP ENCOUNTERING *: */!l5l6)/) 

10016 FORMAT!* THE NETWORK APPEARS DISJOINT */* THE FOLLOWING * 

6 »*NON TERMINAL SECTIONS ARE NOT ENCOUNTERED IN PATHS :♦/ 

6 ! 15 .* AT LINE * *15/) /) 

10017 FORMAT!* THE FOLLOWING SECTIONS WERE FOUND TO BE IN ERROR ;*/ 

6 !10X*I5*' AT LINE NUMBER **I6)/) 

10018 F0RMAT!2HNT*I2«2I 1«I2.1h;) 

10019 F0RMAT!*WKER0U**I2«' ?•) 

10020 F0RMAT!A50/ (1515) ) 

10021 format ! A50 * 1 5/8 !2X»1PE 12.6) ) 

10022 F0RMAT!A50*7I6) 
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01020 

01030 

OlO^O 

01050 

01060 

01070 

01080 

01090 

01100 

OHIO 

01120 

01130 

OllAO 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 


10023 format (// 'OUTPUT FILE NOT AVAILABLE ON *»I6/ 

6 'TO WRITE RECORD NUNBEP •» 1 6/ 'PROGRAM ABORTS') 

10024 FOR'MT(//'OUTPUT FILE .'<RITE E'='ROR 0N».I6«'FILE AT RECORD '»I6/ 

6 'PROGRAM AbOKTS*) 

10025 Format {//'PROGRAM EOROR. invalid lMF0R.*1ATir.‘l OF SECTION *,I6/ 

6 'PROGRAM ABORTS') 

10026 F0RMAT(14I5*la) 

10027 FORmaT('FREO«' »I 2»* TEMP*',II«' ASSUMPT lONa ' » 1 1 » * NETWORK®' , ) 

10028 FORMAT(V) 

10029 format (//'FILE CLOSING MOT SUCCESSFUL '/' DO YOU WISH TO CONTINUE?'/ 
£ /'IF YES enter I AND HIT RETURN HF NO HIT RETURN'//) 

10030 F0RMAT(//'USER instruct PROGRAM ABORT') 

10031 F0RMAT(//*PR0GRAM wIlL continue WITH FILE IN AFT'/ 'IF THE *FT'. 

6 'GETS full the PROGRAM MAY ABORT') 

10032 F0RMAT(//*FILE'*A10.' IS NOT AVAILABLE ON UNIT '*15/ 

6 'OUE TO ISTAT CONDITION ', 1 5/ ' PROGRAM ABORTS'* 

£ '. CHECK OHMCODE IN FlLE'.A9) 

10033 FORMAT (' lOPC*Ob*ANGLE=' .12 *2F8,2) 

10034 format ( ' section » I TTY .LTYP .LENGTH® ' .3 1 6 . F8. 1 ) 

10035 F0RMAT(8I5) 

10036 format ( 'SUBNETWORK AT SECTION® '. I6) 

10037 FORMAT! '1 PHASE TO 3 PHASE AT SECT I ON® '. 1 6 ) 

10038 FORMAT(/'LOAD INFORMATION AT SECTION '.15./ ' INCORRECT'/ 

6 'PROGRAM ABORTS') 

10039 FORMAT! '3 PHASE TRANSPOSITION AT SECT ION® •« 1 6 ) 

10040 F0RMAT!//'THKEE PHASE TRANSPOSITION LINE TYPE IN ERROR AT SECTION* 
6 .I5/'PR0GRAM ABORTS') 

10041 FORMAT ! 'RATIO BANK TRANSOFRMER AT SECT I ON® *. 1 6) 

10042 F0RMAT!5HDRBTR.I2.H.IH;) 

10043 FORMATCDIAGNOSTIC DATA FOR READ OF DARBTRL I ' /6 1 7 ) 

10044 FORMATCLIME TYPE*. 14.' AT SECTION*. 14) 

10045 F0RMAT!3H0PU.I2.3I1.1H;) 

10046 F0RMAT!10!2I4.2X) ) 

10047 F0RMAT!/'DIMENSI0N SIZE OF DATA IS*. 15.' WHILE DIMENSION OF '. 

& • matrix is ' I5/*0N LINE TYPE *.I5.' ON FILE *.A10/ 

6 • program AfjORTS*) 

10048 F0RMAT(5HDAPRY.I2.I1.1H;) 

10049 FQRMAT(6HDTRANN.I2. IH? ) 

10050 FORMATI/'PROCESSING error at section *.I5.* on PASS *.15/ 

6 'PROGRAM ABORTS *) 

10051 FORMaT!/'LEVEL OF PARENT SECTION '.15.* IS*. 15 / 

£ • WHILE that of PRESENT SECTION '.15.' IS*. 15/ 

6 • PROGRAM ABORTS •) 

10052 FORMAT! 'SPECIAL TRANSFORMER FILENAME®' *A8. ' FOR I0PC*3*) 

10053 FORMAT ('TYPE CR IF OK') 

10054 FORMATCWCODE.NSECT.IASN.IZNGR ®'.4I6) 

10055 FORMATCWCODE.NSECT.LTYP s', 316) 

10056 format !'WC0DE.MSECT.LTYP,HECC.NEUF ®'.5I6) 

10057 FORMAT! 'WCODE.MSECT.LTYP.NEUF.NEUFO *'«5I6) 

10058 FORMATCWCODE.NSECT.LTYP.IPRI .IP s', 516) 

10059 F0fiMAT!*WCODE.NSECT.LTYP,ITTY.NEUF.NUMF s',6l6) 

10060 F0RMaT(*WCODE,NSECT.LTYP,ITTY,ITREC s', 516) 
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015A0 100^,1 FOR-iaK 'WC 0DE,M5ECT*I.TYP,LCU»:4EC0»NCU a'»6l6) 

01550 100f>2 FCPMAT ( 'rtCODEfOSECT »LTVP»MEUF»rUMF»IPRlM a*, 616) 

01560 10063 FOR;:aT( •WC0CE»ii5ECT»LTYP,LCU*r;EC0«NCU.IPRr-< a*, 717) 

01570 lOOiSA format ( ‘UNABLE TO FIND LTYPs‘»I3,‘ IN FILEa*,A9. 

015«0 6 • FOR MSCCTs'.I5) 

01590 10065 format { ‘TRANSFORMER ADMITTANCE MODIFIED 8Y*,F6.l» 

01600 6 ‘ OB and angle* «F 7*l,‘ IN DEGREES') 

01610 10066 FORMAT! ‘TRANSFORMER ADMITTANCE MULTIPLIED BY »«IP2E1A,A) 

01620 10067 format ( IP&E16, 6) 

01630 10068 FORMAT(A8t'5‘) 

01640 IMPLICIT COMPlEX(A-G*Q»S«T»V*Y,Z) 

01650 DIMENSION INLC5A U 800 » l4) ♦ I NSEOV ( 1 800 ) ♦ISTAKI1800) * ICbUF(5) ♦ 

01660 6 YIN(4,4) ,Y2K(4,4) ,YL0AD{4,4) ,YTEMP(4,V) «AM(4) ,BM(4) * IDIR (900) * 

01670 6 CM(a) «DM(4) »2NULL(4,4) ,VN1JLL(4) ♦lEVPT(50) ♦ 

01680 6 MECOV (50) ,APHI (4,4) ,BPHI (4,4) ,CPHl (4,4) ,DPHI (4,4) ,VT0PH(4,4) , 

01690 & WKAREA(200) «KXFER(3) « 

01700 6 Z(4,4) ,Y (4,4) ,20(4,4) ,Y0(4,4) ,5(4,4) ,S1 (4,4) , 

01710 6 YPRIM(4,4) ,2T(4) ,YDIAGI (4) ,Y0IAG2 (4) , 

01720 6 YST0RE(4,4,50) ,Dl(4) ,TRAMAY(10,9) 

01730 character *9 MNTWK «MCPRL,MOSEC«MPR I M,mABCDiMOPU« M IDENT ♦ 

01740 (, MVT5U,MPR5,MRBTR,MTRAM,TRANF 4 

01750 character's NDATE ,N0TE «TTRAN 

01760 CHARACTER»6 CN 

01770 DATA LDA I N/ lO/MAXND/ 1800/LOPRL/20/LDSEC/ I 1 /LPR IM/ 12/LHBTR / 14/ 

01780 DATA LDPU/25/LSUBN/ 18/LOUT/ 16/ ,XOUT/ 1000/LTRAN/ 15/ I TRAN/0/ 

01790 DATA NATRS2/20/ ,L0TRA/ 1 3/ ,MP0TR/ • RBTRDATA; * / 

01800 DATA MREC/1800/NR0AT/1/N5EOV/1/NLCSA/14/ 

01810 DATA NTRNSZ/15/NRBTR/78/NVTSZ/78/NPRISZ/38/ 

01820 DATA MSECS2/9/N0PU5Z/210/ • 

01830 DATA ZERO/ (0.0,0.0) /AONE/ ( 1,0 ,0,0 ) /CN/ • NTWKER ' / ,TTRAN/ • TRANF I LE ' / 

01840 DATA KDPR I /0/KDRBTR/0/KTRSEC/0/KVT5U/0/ 

01850 DATA MDIM/4/LU/06/NWKA/200/ , IOPC/3/ 

01860 data IRAN/0/,IDIA/l/,ZNULL/l6*(0, ,0,) /«VNULL/4*(0, ,0.) / 

01870 DATA NECO/-l/»LTOP/-l/ 

01880 DATA XTP I /6 , 283 185 I /RAD/57 ,295779/XOB/O ,0/XANG/0 ,0/ 

01890 * THIS segment OF THE PROGRAM CONSISTS OF INTERACTIVE INPUT, 

01900 * THE USER SPECIFIED COOES WHICH ARE USED TO DETERMINE THE 

01910 * network TO 6E ANALYZED AND ITS PARAMETERS, 

01920 CALL OATIM(NDATE«WTIME) 

01930 CALL FPARAH(1,120) 

01940 CALL NASTRK 

01950 PMAGMN=100,0 

01960 PMAGSTs0,0 

01970 PANGMNsO,0 

01980 PANGSTs0,0 

01990 lASNs4 

02000 1TEMP=6 

02010 PMULTsUO 

02020 LOOFlGsO 

02030 100 CONTINUE 

02040 110 WRITE(06»10000) 

02050 120 FRINT.‘ITEMP,IASNs‘,ITEMP,IASN 
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02060 


W9ITE(6«10053) 


02070 


mead* I TEST 


02060 


IF{ ITEST.EU'.OGOTO 130 


02090 


MRP'T* ‘EhTER I temp* I asm • 


02100 


«ead*itemp*iasn 


02110 


GOTO 120 


02120 

130 

HRIMT* ‘ENTER FREQUENCY C00E*NCTWCRK 

IDENTIFICATION NUMBER* 

02130 


Reao*ifcoce*midem 


02U0 


MRINT*‘FRE0 C00Es»*IFC 0DE** fiFTWORK 

IDs* *N I DEN 

02150 


WRITE(6«10053) 


02160 


reao,itest 


02170 


IF(ITE5T.ME.O)COTO 130 


02180 

140 

WRITE(06*10004)PMULT 


02190 


t«»RITE(06»10053) 


022C0 


REA0*ITE5T 


02210 


IF(ITEST.EQ.0)G0T0150 


021 -’0 


reao*pmult 

• 

02230 


Q0T0140 


02240 » 


8ASE DNWKIN12(12 ARE LOCATIONS FOR 

NETWORK IDENTIFICATION 

02250 * 


NUMBER)* IT THEN CHECKS TO INSURE 

CONSISTENCY OF INFORMATION 

02260 

150 

ENCODE (MNTWK* 10005 )NI den 


02270 


CALL OPENF ( lDA I N *MNTWK * I STAT *1.0*1) 


02280 


READ(LDAIN*10028)NLINE.KIDEM 


02290 


IF(NIDEM.EQ*KIDEM)GOT0170 


02300 


WRITE(LU*10006)NIOEN*KIDEN 


02310 


read.noptn 


023*'0 


GOTO (170 *100 *160) *NOPTN 


023. J 

160 

STOP OloO 


02340 

170 

DO 180 laUMAXNO 


02350 


IMSEOV ( I ) so 


02360 


iNLCSA(I«l)*-10 


02370 

180 

ISTAK(I)*0 


02380 


JROOTsO 


02390 


nomaxso 


02400 


IslOOO 


02410 


lABORTsO 


02420 

190 

IsUl 


02430 


read ( LDA IN, 10028. EN0S260 inline* INSECT* I PAR *1LS0N*1RS0N, 

02440 

< 

» LTYP*ILFnCD*IRES*ITT*IPHSE*I5ECD*IPRIM*IZNGR 

02450 


NOMAXsNOMAX^I 


02460 


IF(NlINE.EO.I )G0T0200 


02470 


WRITE(06*10007) I .MLIME 


02480 


lABORTsl 


02490 


G0T0190 


02500 

200 

IF ilNLCSAC INSECT*!) .LT,0)G0r0210 


02510 


WRITE (06 *10008 INLINE* INSECT 


02520 


lABORTsl 


02530 


G0T0190 


02540 

210 

INLC5A(IN5ECT*1)sIN5ECT 


02550 


INLCSA( INSECT *2) siPAR 


02560 


INLCS ,(INSECT*3)sIuS0N 


02570 


INLCSA( INSECT*4) siRSON 
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025S0 

02590 

02b00 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

G2840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 


IMLCSA(INShCT»6)aLTYP 

T.lCSA ( litSECT,?) sILE(^CD*PMULT 

iNLCbA ( IH5ECT,P.) =IRES 

I'JLCSA ( IN5ECT,9) slOOO»lPHS£*ITT 

INLC5A(IN5ECT,10)=ISEC0 

INLC5A ( INSECT,LI) sIZr.GR 

INLCSA(IM5ECT,13) = IPPI’^*100 

IMLCSA (INSECT, Ui sfiLlNE 

IFUPAR,EQ.O)GOT0220 

lNS£QVnPAR)sIN5EQV(IPAR)*l 

IF( INSEQV(IPAR) ,LE,2?G0T024n 

WRITE(06«10009)NLINE, IPAR 

IAB0RT=l 

G0T0190 

220 IF(jROCT.EO.0)GQT0230 

WRITE(06«10010) NLINE» INSECT,JR00T 

lABORTsl 

GOTO I go 

230 JROOTsINSECT 

240 IF(ILS0N.E0.0)G0T0250 

ISTA< ( IlSON) =ISTAK ( ILSON) ♦'! 

IF( ISTAK ( ILSON) ,E0. DG0T0250 

WRITE(06»10011)NLINE,IL50N 

IABORT=l 

G0T019O 

250 IF(IRSON.E(J.O)GOT0190 

ISTAK ( TRSON) = ISTA|C ( IR50N) ♦! 

IF( ISTAK ( IRSON) ,E0. 1 ) G0T0190 
WR1TE(06»10011)NLINE,IRSON 
lABOKTsl 
GOTO 190 
260 CONTINUE 

♦ this segment .S FOR CONSISTENCY CHECKING 

* IT GOES IN AFTER LINE1470 ALL MATRICES DEFINED IN MAIN 
CO 270 Isl,MAXMD 

ISTAKU)=~IO 
270 CONTINUE 

DO 360 I=1,MAXN0 
ND=I 

IF(I!^LCSA(I,1' ,lT. 0)G0T0350 
lLSONaINLCSA( I ,^) 

IRS0NsINLCSA(I,4) 

IFdLSON.NE.O.A.ND. INLCSA(ILS0N,1) ,LT,0)G0T0320 

IF(IRS0N,ME,0.AM0,INLCSA(IRS0N,1) ,LT.O)GOT0330 

IF(INLCSA(I,3).NE.O.OP,INLCSA(I,4),NE.O)GOT0360 

Ksl 

NDsI 

280 lNr£OV(K)sNO 

NPARsINLCSA(ND,2) 

IF(NPAR,EQ,0>GOT0350 

IF(INLCSA(NPAR,3) ,EQ.0*AN0,INLC5A(NPAR,4) .EO.O) G0T0290 
IF( IMLCSA(MPAR,3) .NE.ND.AND. INLCSA (NPAR,4) ,ME.ND)G0T0300 


1-78 


ORIGINAL PAGE IS 
OF POOR QUALITY 


NTWKERS4 

PAGE 7 

03100 


I5TAK (..iC) *10 

03110 


< = <♦1 

03120 


HDsfiPAR 

03130 


IF (K.C-T.i'iOMAX) G0TC310 

03140 


G 0 T 02 e 0 

03150 

2<»0 

IF( ISTAK(ND) .F.d.5)G0T0360 

03160 


ISTAK (MD» *5 

03170 


lABORTsl 

03180 


WRITE(6»10013)ND» If.LCSA(N0*14> ,MPAR . INLCSA (NPAR» 14) 

03190 


G0T0360 

03200 

300 

IF( ISTAK (riD) .F0.5)G0T03ft0 

0321C 


ISTAKIND) *5 

03220 


lABORTsl 

03230 


WR I TE ( 42 . ’ 00 1 4 ) ND , I MLCSA ( NO ♦ 14 ) « NPAR « I NLC5A ( NP AR ♦ 1 4 ) 

03240 


G0T0360 

03250 

310 

ISTAK(I)*5 

03260 


lABORTsl 

03270 


WRITE(42« 10015) I» (IMSECVU) *J=1,K) 

03280 


G0T0360 

03290 

320 

IESOMsIlSON 

03300 


G0T0340 

03310 

330 

lESOHsIPSON 

03320 

340 

ISTAK (I)*5 

03330 


lABORTsl 

03340 


WRITE ( 42 ♦ 10012) INLCSAIUU) ,NIE50N 

03j50 


G0T0360 

03360 

350 

ISTAK(ND)=10 

03370 

360 

CONTINUE 

03380 


DO 370 I=1,MAXND 

03390 


IF(I,E0.1)K*0 

03400 


IFdSTAKU) ,GE.O)GOT0370 

03410 


<=K*l 

03420 


INSEQV(K)*I 

03430 

370 

CONTINUE 

034<»0 


IF(K,EQ.0)G0T0380 

03450 


WRITE (42*10016) (INSEOV(J) * INLCSA (INSEQV ( J) .14) .J*1.K) 

03460 

380 

IF (I A80RT,NE.1)G0T0400 

03470 


00 390 Isl.MAXNO 

034B0 


IF( I.EQ.DKsO 

03490 


IFdSTAKU) .EQ.10)GOT0390 

03500 


tsK+l 

03510 


INSEQV(K)*I 

03520 

390 

CONTINUE 

03530 


WRITE (42 *10017) dNSEOV(J) . INLCSA (IN5E0V ( J) .14) *J*1*K) 

03540 


STOP 197 

03550 

400 

DO 410 Isl.MAXNO 

03560 


iNSEQVd )*0 

03570 

410 

I5TAK(I)*0 

03580 


MC0LS14 

03590 


CA LL PROSED ( I NLCSA . I NSEQV . I STAK . MAXMO . NTEST . MCOL * JROOT ) 

03600 • 


FRINT.'AT128*3 NTESTs^' .MTEST 

03610 


XLENTHsO.O 
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0^620 » 
036 iO * 

r ; 36<*0 * 

03650 » 
03660 ♦ 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
037<»0 
03750 
03760 
03770 
037S0 
03 790 
03800 
03B10 
03820 
03830 
038A0 
03850 , 
03860 
03870 
03880 • 
03690 • 
03900 * 
03910 » 
03920 ♦ 
03930 
039<^0 
03950 
03960 
03970 
03980 
03990 
OaOOO * 
04010 * 
04020 * 
04030 * 
04040 * 
04050 * 
04060 * 
04C70 
04080 
04090 
04100 * 
04110 * 
04120 
04130 


SECTICM LF.VFL5 AND FW0CF5SI .':r. 5E0UEMCE VECTOR HAVE «EEN CREATED 

the NETWCHN has p-een exhaustively tested for consistency 
the ‘IEXT step is to CPFATE ft directory for writing this 

riFOH’-’ATION into AN OtlTPlJT FILE 

NUN’RER OF 320 WORD ‘>LDC<5 IS 32*1 *6 TIMES NUMBER OF SECTIONS, 

420 ENCODE (HDPRL ♦ 1 00 1 « »I FCODE* 1 000 , 1 TEMP ♦ I ASM , N I DEN 
NOMAXsNTEST 
ICbUF ( 1 ) =2 

ICBUF (2> s200*(NTEST*lrtJ *MREC/?20 

ICEUF(3)=ICBUF(2) 

icbuf;4)=i 

IC3UF(5)=3 

IRECDsl 

CALL M0FENFCL0PRL»M0PRL,ISTAT,3»l»ICflJr ,5,0) 

print,* IF YOU WANT AN ASCII OUTPUT FILE ENTER 1,EL5E CR • 

«ead,noutfl 

IF(N0UTFL.EQ.0)G0f0430 

KOUTstCOUT-*! 

ENCODE (MPRS, 10019) KOUT 
CALL OPfei'lF(LOUT,MPRS,I3TAT) 

I F n STAT.NE.O ) CALL F I LSTO ( MPRS , • STATUS * ,0 , I STAT ,158) 

430 CALL RANSIZ{LDPRL»MREC, 1) 

IF(N0UTFL.NE.0)PRINT,'0UTFILE NAME* • ,MPRS 

PRINT, ’NETWORK FILE= • ,**OPRL 

G0TC450 

4*»0 WRITEi06,10024)LDPRL,IRECO 

FOR explanation of above symbols SEE NOTES ON DATA FILE NTWIJKLM 
the FOLLOWING SECTION MAKES UP THE DIRECTORY COLUMN IN 
INLCSA ARRAY 

THE FIRST SECTION WILL START AT RECORD 21 AND THEY WILL BE STORED 
IN THE iZUUENCE INDICATED BY IN5E0V, 

450 OO 4,70 I = 1,nOMAX 
N0S£0=IN5E0V( I ) 

IF( InLCSA <N0SEQ,1 ) .EO,NOSEO)GOT04tO 

wRITE(06»10025)NOSEQ 

STOP 1021 

460 INLCSA(N0SEQ,14)=1+20 
470 CONTINUE 

IMLCSA and INSEQV are now written ONTO DISK, INLCSA OCCUPIES 
PRINTING contents FqR F IRST ( ARBI TRAP I LY) 25 SECTIONS 
DO 475 1-1,25 

WRITE <06, 10026) ( INLCSA < I ,J) ,Jsl,l4) ,TNSEOV(I) 

475 CONTINUE 

IF(NOUTFL.NE.O) WPi TE(LOUT,10027IFCODE>1000,ITEMP, IASN,NIDEN 
RECORDS 2 THRU 15 ,INSeQV OCCUPIES RECORD NUMBER 18 
DO 480 J-1,14 
IRECD=J*l 

WRITECLDPRL* I RECD .ERR=-^40 ) ( INLCSA <NINOX,J) ,NINOX=l ,r.AXNO) 

I F ( fiOUTFL ,NE .0 ) WR I TE (LOUT , 10020 ) • I NLCSA COLUMN • , J , ( I NLCSA ( I P , J ) , 

6 IPsl,40) 

480 CONTINUE 
IRECDslfl 
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04140 
04150 
04160 
04170 
04180 * 
04190 • 
04200 * 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 * 
04290 • 
04300 * 
04310 * 
04320 » 
04330 # 
04340 * 
04350 * 
04360 * 
04370 » 
04380 * 
04390 » 
04400 * 
04410 * 
04420 
04430 » 
04440 4 
04450 
04460 » 
04470 * 
04480 * 
04490 * 
04500 
04510 
04520 * 
04530 * 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 


IF (:^CMAX.E0,KAXMP) 0070500 
00 490 I=.‘JOMAX*l ♦ ■'AXOn 
4^0 I^SCQV(I)^0 

50C WRITE (LDRRL* I RECD«ERR = 440) ( PlSEGV ( J) , J= I »MAXN0 > 

IF (MOUTFL.flE.O) WRITE (LOUT, 10020) • INSEOV , (INSEQV(IP) ,lPsi , NOMAX) 
NOTE status word IS ^eaningless upto this point, 

WE MOW REMOVE DMTWX FILE FROM AFT. 

CALL DETACH(LDAIN,ISTAT,) 

IF( ISTAT.EQ.0)G0T0520 
WRITE(06, 10029) 

«EA0,ITEST 

IF( ITE5T,(ME.0)G0T0510 
WRITE(06, 10030) 

510 WRITE(06, 10031) 

the rest of this program will contain segments which will be 
DEVELOPED LATER IN APPROPRIATE PLACES WE SHALL ASSUME 

The availability of the restuls of these segments, appropriate 

NOTATION WILL BE MADE. 

the loop below will determine dp a QUANTITIES FOR THE 
f.EIWORX, WE FIRST OPEN THE NECESSARY RANDOM BINARY FILES 
DASECn,DAPRIH,DATRAN,ABCD 

their lgu numbers, symbols and name characters are: 


FIILE name 

LOC. NUMBER 

LGU SYMBOL 

charac.name 

DASECD 

11 

LDSEC 

MDSEC 

DPRIM 

12 

LPRIM 

MPRIM 

DRBTR 

14 

LDRBTR 

MDR8TR 

DPU 

25 

LDPU 

MOPU 

dtrann 

520 CONTINUE 

15 

LTRAN 

MTRAN 


lOMCD THE variable KEEPING TRACK OF OPU FILES 
IS NEXT initialized 
I0MCD=-1 

WE NOW Begin a major loop for analyzing the network 

THE processing LOOP BELOW FOLLOWS THE LOGIC OF 'PPROCESSING 

algorithm* FLOWCHART OF 8/15/77 

WE FIRST INITIALIZE ThE INFORMATION STORAGE AREAS 
DO 530 I=l,MAXND 

530 LEVPT( I)=0 ' 

»»E SET ALL OUTPUT GUAnTITIES TO ZERO SO THAT THOSE WHICH ARE NOT 
MODIFIED WILL ALWAYS PRINT OUT AS ZERO. 

DO 550 I=1,NDIM 
AM(I)=ZER0 
BMUisZERO 
CM(I)=ZERO 
DM(I)sZEPO 
Do 550 Jsi,NDIM 
APHI ( I ,J) =ZERO 
BPHI ( I ,J) sZERO 
CPHI (I,j)=ZERO 
DPHI (l,j)=ZER0 
VTOPH(I,J)=ZERO 
YIN(I ,J)sZeRO 
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0A660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
U4780 
04"^90 
04800 
04810 
04820 
04830 
04840 
04850 
04860 
04870 
04880 
04890 
04900 » 
04910 * 
04920 * 
04930 * 
04940 * 
04950 * 
04960 » 
04970 * 
04980 * 
04990 * 
05000 
05010 
05020 
05030 
05040 
05050 » 
05060 
05070 * 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 


72<U »J) =ZE«0 
00 540 KSU5 
5h 0 Y5T0PF (I *J»iO=ZEPC 
YPRIM<NJ)=ZEkO 
550 CONTINUE 
NSTAKsI 

560 PRINT 10033»I0PC»XD3*XANG 
print 10053 
WEAO.I 

IF(I,EQ.0)G0T0570 
print 10033 
read, IOPC,XDB,XANG 
GOT0560 
570 CONTINUE 

IF(l0Fv;.NE.3)G0T0580 
ENCODE ( T1<ANF » 1 0068 ) TTRAN 
PRINT 10052, TTRAN 
PRINT 10053 

read, I 

IF(I.EQ.0)G0T0580 
PRINT 10052 
read, TTRAN 
GOT0570 
580 CONTINUE 

IF (I0PC,EQ,0.AND.N0UTFL.NE,0) WRITE (LOUT, 10021) ’TRANSFORMER SHORT* , 

6 * seconoa.<y*,iopc 

I F UOPC.EO, 1. AND. NOUTFL.NE.O) WRITE (LOUT, 10021) ’TRANSFORMER OPEN* « 

6 ’ SECONDARY’, lOPC 

I F ( I OPC.EO, 2. AND. MOUTFL.NE.O) WRITE (LOUT, 10021 ) ’TRANSFORMER ANAL ’ * 

& ’YTICAL MODEL’ «IOPC 

IF (IOPC.GT,2.AND,NOUTFL.ME.O) WRITE (LOUT, 10021) ’TRANSFORMER SPECIAL’ 
^ ’ FILE/ARKAY* ,IOPC 

IF ( IOPC.lt, O.AHO.NOUTFL,NE.O) WR I TE ( LOUT , 1002 1 ) ’TRANSFORMER LOADING’ 
& ’ IGNORED' ,IOPC 

IF(I0PC.LT.0)G0T0590 
PRINT 10065 »XOE,X-ANG 
X=10.»*(0,05*XDB) 

UETA=CMPLX(X*COS(XANG/RAD) ,X*SIN (XANG/RAD) ) 

PRINT 10066, beta 
PR iNTt’NSECT ITT lTYP* 

YNEUsZERO 

begin major LOOP 
590 DO 1180 INDsUNOMAa 

NSECT=INSEQV(N0MAX+1-IND) 

LEVN0sINLCSA(NSECT,5) 

NPAR=INLCSA(NSECT,2) 
lLSON=INLCSA(NSECT ,3) 

IRS0N=INLCSA(N5ECT,4) 

LEVPAR=INLCSA(MPAR,5) 

LTYPsINLCSA(NSECT,6) 

LENGTHS INLCSA(NSECT, 7) 

I NDRHOs I NLCSA ( NSECT , 8 ) 
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05180 
05190 
05200 
05210 
05220 
05230 
052<»0 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
05360 
05370 
05380 
05390 
05AOO 
05^10 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 
05520 
05530 
05540 
05550 
05560 
05570 
05580 
05590 
05600 
C5610 
03620 
0. 630 
05640 
05650 
05660 
05670 
05680 
05690 


» 

» 

» 

* 

* 

* 

ft 

* 

» 

* 

* 


* 

» 

* 

* 


* 

* 


* 

* 

w 


* 

* 

* 

* 


ITTY = I;,lCSA(NSECT,9) 

ISECDsir'LC5A(r.SECT,lO) 

UMCjRsINLCSACi.SECTi ID 
IFdzriGP.GT.O) YNEU=AOME/IZi'lGR 

IF (HOUTFL,r;E.O) wRITE(LOlJT» 10034) riSECT» ITTY»LTYP,,l*LENGTh 
PRIM 10035 »NSECT,ITTY»lTYP 

IF( lASN.LT.a.AND.IZ MGR.EO.OPRINT 10054,0250 fNSECT « I A1>N, IZNGR 
NEXT WE read data Ih AND DETERMINE APPROPRIATE A,B,C,D»ETC. 

I.E. modal or PHASE and TH£N PROCEED WITH ANALYSIS# 
*•»»***»***«****«■»«*»***«*«.»#*«««**««*«*'»***«•*****»»***««*»»»«***»« 
THIS SECTION reserved FOR LOGICAL SECTION FOR IMPLEMENTING * 
OTHER OPTIONS FOR THE PRESENT ONLY OPTION 1 * 

I.E. all quantities Phase will 3E implemented * 

the following section is for PHASE QUANTITIES ONLY OPTION 
only feeder propagation will be considered at FIRST 
hence W£ either have a primary load on the feeder* 
or a single phase PRIMARY BRANCH. 

NOTE * NO ABORT ORCVISIOM IS BEING MADE HERE. 

the following SECTION IS REPRESENDED IN THE BLOCK DIAGRAM BY THE 
block marked PROCESS NSECT .GENERATE YN(I,J)AND STORE INFO 
ON DISK. OUTPUT WILL BE STORED ON LOCATION CORRESPONDING TO 
the InSEOV VECTOR, I.E. AT NSECT^ZO 
NRECsINLCSA (NSECT. 14 ) 

IF(LTYP.L£,9)GOT0600 
IF(LTYP.LE.23)GOT0650 
IF(LTYP.LT,33)G0T0690 
IF (LTYP.lt, 100) GOT0720 
IF(LTYP,LT.100C)GOT0760 
PRINT 10055. 0260.MSECT.LTYP 
STOP 0590 

this SECTION IS FOR LTYP GE lOOO-SUBNETWORKS WITH 3C PRIMARIES 
NECO=LCU.IE number OF EFFECTIVE CONDUCTORS UNCHANGED 
IF ( N0UTFL,NE.0)VMR I TE (LOUT. 10036) NSECT 

the following SECTION IS FOR 1 PHASE TO 3 PHASE CONNECTIONS 
IE LrYPsl-9 

f!ECO=EFFECTIVE NUMBER OF CONDUCTORS ON SINGLE PHASE SIDE 
LCU=EFFECTIVE number OF CONDUCTORS ON THREE PHASE SIDE 
600 CONTINUE 

THIS LOGIC FOR 3 PHASE TO 1 .PHASE. NOTE THE LAST 
PRECEDING processed SECTION WILL BE AN ACTUAL FEEDER 
SO THAT NEUF. ETC WILL BE VALID FOR DETERMINING LOAD 
SIDE conditions 

I F(NOUTFL.NE.O) WRITE (LOUT. 10037) NSECT 

IF (LTYP.GT.3.AND.MEC0.NE.2)PRINT 1 0056 .0275 .NSECT .LTYP.NECO 
IF(IaSN.L£,2.ANO.MEUF,EQ,1,AND.NECO.NE.2)PRINT 10056. 0274, NSECT. 

6 LTYP.NECO. NEUF 

IF(IASN.GE,3.AND.NEUF.E0,1,AND.NEC0.NE.1)PRINT 10056 .0276. NSECT. 

& LTYP.NECO. NEUF 

IF ( lASN.GE.3.AN0.NEUF,EQ,0,ANC^NEC0,NE.2)PRr'‘' , 10056. 0277. NSECT, 

^ LTYP.NECO, NEUF 

1F(IASN.LE.2.AND.NEC0.NE.2)PRINT 10056, 0279, NSECT. LTYP.NECO 
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05700 IP (rvlECO,GT,2) Pt'INT lOOS^, ,0280 ,NbECT ,LTYO ,N£C0 

05710 LCJ=MEC0*2 

05720 IF (LTYP,GT,i)uCU=3 

05730 » LTYP,GT,3 IMPLIES DELTA CONNECTION, IE NO NEUTRAL 

057A0 * THIS ASbUMPTIO^ NAY NAVE TO REVISED IF NOT TRUE 

05750 * IF(N0UTFl.,NE.0)WRITE(LOUT, 10022) ’AT 3Q30 LCU,NEC05 • ,lC.U.NECO 

05760 on 610 1=1 , lCU 

05770 00 610 J=1,lCU 

05780 VT3PH( I ,J) sZERO 

05790 OPHI ( I ,j) =ZE«0 

05800 Y2<(I,J)=ZER0 

05810 IF( tl.GT.NECO) .OR. U.GT.NECO) )G0T0610 

05820 IF(YIN( I , J ) , EO. ZERO ) GOTQ630 

05830 Y2<{I,J)=YIN(I,J) 

05840 610 CONTINUE 

05850 IF (lTYP.GT.3)Q0T0640 

05860 » HERE DPMI IS USED TEt-iPORAR ILY AS AN NECO*NECO SIZED 

05870 4 TRANSPOSE OF VTOPH 

05880 * »JITH ZERO FILLS. FIRST APPROPRIATE VTOPH IS CONSTRUCTED 

05890 VTOPH(l,LTYP) sAONE 

05900 DPHI (LTYP,1 ) SAONE 

05910 IF(LCJ.GT.3) VT0PH(2,LCU)sA0NE 

05920 IF(LCU.GT,3)0PHI (LCU,2)=A0ME 

05930 620 Call CMTMPY (Y2<, VTOPH, YTE^'P, LCU, LCU, LCU,NDIM) 

05940 CALL CMTMPY (DPHI ,YTENP »YIN, LCU, LCU, LCU, NDIH) 

05950 * LCUsMUPBER OF EFFECTIVE CONDUCTORS ON SOURCE SIDE 

05960 4 NEC0=NUM8ER OF EFFECTIVE CONDUCTORS ON LOAD SIDE 

05970 4 1<sLTYP<=9 

05980 WRITE (LDPRL'NREC)NSECT,LTYP, LCU, NEC0,XLENTH,ZNULL, DPHI , VTOPH, 

•05990 6 YIN,ZNULL,Y2K,ZNULL,VNULL,VNULL,VNULL,VNULL 

06000 4 #* IF(N0UTFL. NE.O)wRITE(lOUT, 10022) *Y2K FOR LTYP ,LE. 9 »LTYP ,NPAR ,NSECTa • 

06010 4 ** 6 LTYP,NPAR,NSECT 

06020 4 ** IF (NOUTFL.NE.O)CALL CMTPRT (Y2X ,NECO,NOIM,LOUT) 

06030 4 ** IF (N0UTFL,NE.0)WRITE(L0UT, 10022) 'YIN FOR LTYP,Lr.9,LTYP,NPAR,N5ECT= • 
06040 4 *# 6 ltyp,npar,nsect 

06050 4*# IF(N0UTFL.NE.0)CALL CMTPRT ( Y I M ,lCU ,ND l H »L0UT ) 

06060 4 RESETTING NeCO FOR PARENT CHECK AND LOGIC AT 530*1 

06070 NECOsLCU 

06080 GOTOllOO 

06090 630 WRIT£(06,10038)NSECT 

06100 PRINT 10056,0281 ,NSECT, LTYP, NECO 

06110 640 MPhi=lTYP/2-1 

06120 4 THIS SECT! t IS FOR PHASE TO PHASE TAKE-OFFS 

06130 HPH2?moD( (LTYP-mPHI*!) ,3) *1 

06140 4 LTYP i-PhI MPH2 

06150 4 412 MPH1=PHASE ON 3 PHASE SIDE TO 

06160 4 513 WHICH SINGLE PHASE HI IS CONNECTED 

06170 4 623 

06180 4 721 MPH2sPHASE ON 3 PHASE SIDE TO 

06190 4 831 SINGLE PHASE LO IS CONNECTED 

06200 4 932 

06210 VTQPH( 1 ,MPHl) sAONE 
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06220 VTOPh(2»>'PH2) -AONE 

06230 DPHl (VPHl , I ) sAONE 

06240 OPHl (MpH2,2 ) sAOME 

06250 (i0T0620 

06260 650 CONTINUE 

06270 » THIS LOGIC FOR THREE PHASE TRANSPOST ION . WILL USE 

06280 * CONTINUITY OF NEUF TO DETERMINE ACCEPTABLE LOAD 

06290 ♦ SIDE CONDITIONS 

06300 * IF(N0UTFL.NE.O)WRITE(l0UT,10O39)NSECT 

06310 ♦ THIS SECTION IS FOR 3 PHASE TRANSPOSITIONS. 

06320 » LYTP CAM ONLY BE 12.13»0R 23. 

06330 * LTYPsl2 PHASES IS2 INTERCHANGED 

06340 * LTYP=13 PHASES 163 INTERCHANGED 

06350 * LTYPt?3 PHASES 263 INTERCHANGED 

06360 IF( (lTYP.EQ.12).0R. (LTYP.EQ.13) .OR. (LTYP.EQ.23) ) G0T0660 

06370 WRITE(06»10040)NSECT 

06380 PRINT 10056«0300»NSECT.lTYP 

06390 660 CONTINUE 

06400 IF( (LTYP.EQ.13.OR.lTYP.EO.23) .AND. (MEC0.LT. (NEUFE+3) ) ) 

06410 6 PRINT 10056. 0303«NSECT.LTYP.NEC0.NEUFE 

06420 IF(lTYP.EQ.12.AND. (NECO.LT. (NEUFE>2) ) )PRINT 10056.0304. NSECT. 

06430 6 LTYP.NECO.NEUFE 

06440 LCUsNECO 

06450 Kl=LTYP/lO 

06460 K2=LTYP-Kl»10 

06470 DO 670 I=1.NEC0 

06480 00 670 J*1.NEC0 

06490 Y2K(I.J)sYIN(I.J) 

06500 OPHI (I ,J)sZERO 

06510 670 VTOPH( I .J) sZERO 

06520 IF(lTYP.E0.12) 1=3 

06530 IF(LTYP.EQ.13) 1=2 

06540 IF(LTYP.EQ.23) 1=1 

06550 OPHI ( I .1 ) =A0NE 

06560 VTOPHd.DsAONE 

06570 OPHI (KI.K2) sAONE 

06500 OPHI (L2.KI) sAONE 

06590 VT0PH(K1.K2)=A0NE 

06600 VT0PH(K2.K1)=A0NE 

06610 6fl0 CONTINUE 

06620 CALL CHT IRC ( Y T N .K I .K2 . NO I M ,ND IM ) 

06630 * number of EFFECTIVE COUNDUCTORS IN AND OUT IS EQUAL 

06640 * 10<=LTYP<=23 

06650 write(ldprl*npec)nsect.ltyp,lcu.neco.xlenth,znull. 

06660 6 DPMI .VT0PH.YIN«ZNULL.Y2K.2NULL.VNULL»VNULL.VNULL«VNULL 

06670 *** IF(NOUTFL.NE.O) WRITE(L0UT. 10022) *Y2K FOR LTYP .LE .23 *LTYP .NPAR .NSECT* 

06680 *** 6 .LTYP.NPAR.NSECT 

06690 ♦** IF(NOUTFL.NE.O)CALL CMTPRT (Y2K .NECO.NOIM.LOUT) 

06700 *** IF(NOUTFL.NE.O)WRITE(LOUT. 10022) 'YIN FOR LTYP .LE. 23 «LTYP .NPAR .NSECT* 
06710 6 .LTYP.NPAR.NSECT 

0672C *** IF(NOUTFL.NE«0)CALL CMTPRT (YIN.NFCO.NOIM.LOUT) 

06730 GOTOllOO 
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06740 6-50 COMTIMJE 

06750 * THIS SECTION IS FOR 3-2 PHASE AND 2-1 PHASE ZERO LENGTHS 

06760 » IE LTYP=24-32 

06770 * LINE TYPES 26-32 CHOSEN ARC I TRAP I LY ( 3Y R, WOODING) 

06780 * CHECK. NECO (FpOM PRECEDING LAST PROCESSED SECTION) 

06790 * 3ASED ON REQUIREMNTS OF THIS SECTION 

06800 * LTYP=2A«25,26 INVOLVE 3 PHASE TO 2 PHASE 

06810 IE( (LTYP.GE.24.AN0.LTYP,LE.26) .AMO.MECO.ME, (NEUFE^2) ) \ 

06820 6 PRINT 10056»0310,NSECT,LTYP,MECO,NEUFE 

06830 IF( (LTYP.GE.27.AND.LTYP.LE.32) .AND.NECO.NE. (NEUFE+D ) I 

06840 6 PRINT 10056 .03 1 1 .NSECT .LTYP .NECO.NEUFE 

06850 * PRINT. 'AT 6666 NECO.NEUFE= • .NECO.NEUFE 

06860 DO 700 1=1 . NDIM 

06870 DO 700 jsl.NDIH 

06880 Y2K n ,J)sYIN(I ,J) 

06890 DPHI (I .J) sZERO 

06900 VTOPH(I.J)aZERO 

06910 700 CONTINUE 

06920 ND0WNS2 

06930 IF(LTYP.LE.26)ND0WNs3 

06940 IF(LTYP.E0.24)<XFER(l)si 

06950 IF(LTYP.EQ.24)ICXFER(2)s2 

06960 IF(LTYP.EQ.25)KXFER(1)=1 

06970 IF(LTYP.E0.25)KXFER(2)=3 

06980 IF{LTYP.EQ.26)KXFER(1)s2 

06990 IF(LTYP.E0.26)KXFER(2)=3 

07000 IF(LTYP.EQ.27.OR.LTYP.EO,29.0R.LTYP.EO.32)KXFER(1)s 2 i 

07010 IF(lTYP.EQ.28.0R.LTYP.EQ.30.0R.LTYP.EQ.31)KXFER(1) 51 

07020 DO 710 I*!, NDOWN-l 

07030 VTOPH( I .KXFER ( I ) ) sAONE 

07040 710 CONTINUE 

07050 VTOPH(NDOWN.NDOWfUi) SAONE 

07060 Call cmtran(Vtoph«dphi,ndim,ndim,;\dim) 

07070 CALL CMTMPY (YIN, VTOPH,YTEMP. NDIM, NDIM, NDIM, NDIM) 

07080 Call CMTMPYIDPHI ,YTEMP.YIN,MDIM,NDIM,nDIM,NDIM) 

07090 XlENTHsO.O 

07100 LCUsNECO*! 

07110 » 2<»<slTYP<s32 

07120 WRITE(LDPRL»NREC)NSECT.LTYP,lCU,NECO.XLENTH,ZNULL.DPHI .vtoph, 

07130 6 YIN.ZNULL.Y2K.ZMULL.VNULL.VNULL.VNULL.VNULL 

07140 *** IF(N0UTFL. NE.0)WRITE(L0UT. 10022) *Y2K FOR LTYP.LE. 33 .LTYP . • . 

07150 ♦** 6 ‘NPARvNSECTst ,LTYP.NPAR.NSECT 

07160 ♦** IF(NOUTFL.NE.O)CALL CMTPRT(Y2K,NEC0. NDIM. LOUT) 

07170 NECOsLCU 

07180 ♦** IF(NOUTFL.NE.O)WRITE(LOUT. 10022) *YIN FOR LTYP.LE. 33 .LTYP , 

07190 *** 6 ‘NPAR.NSECTs* ,LTYP.NPAR.NSECT 

07200 **♦ IF(NOUTFL.NE.O)CALL CMTPRT (YIN, NECO.NDIM. LOUT) 

07210 GOTOllOO 

07220 * the FOLLOWING SECTION IS FOR RATIO BANK TRANSFORMERS 

07230 * ARBITRARILY 33. LE. LTYP.LE. 99 WILL BE RESERVED FOR 

07240 » RATIO bank TRANSFORMER TYPE DESIGNATION 

07250 720 CONTINUE 
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07260 * 
07270 * 
07280 ♦ 
07290 * 
07300 ♦ 
07310 * 
07320 * 
07330 ♦ 
07340 * 
07350 » 
07360 * 
07370 » 
07380 » 
07390 * 
07400 ♦ 
07410 * 
07420 * 
07430 » 
07440 » 
07450 * 
07460 » 
07470 » 
07480 * 
07490 » 
07500 * 
07510 » 
07520 * 
07530 * 
07540 4 
07550 * 
07560 ♦ 
07570 ♦ 
07580 * 
07590 * 
07600 * 
07610 4 
07620 4 
07630 4 
07640 
07650 
07660 
07670 
07680 
07690 
07700 
07710 
07720 
07730 
07740 
07750 
07760 
07770 


the following logic is predicated on all ratio transformers 

BEING ONE OR THREE IDENTICAL SINGLE PHASE (IN A BANK) TWO 
WINDING TRANSFORV'ERS 

IN AS MUCH AS these DEVICES OCCLR ONLY INFREQUENTLY ON A 
feeder* An ASCII DATABASE FILE WILL BE USED 
AT THIS TI-IE LACKING MEASURED DATA, A TWO WINDING 
RLCN MODEL WILL 6E USED. THE ASCII DATABASE 
file WILL cor, TAIN A HEADER RECOtJO NOT USED BY THIS PROGRAM 
WHICH CAM 6E USED FOR ANNOTATION. ALL OTHER RECORDS WILL 
EACH CONTAIN THE FOLLOWING DATA STRUCTURE IN THE ORDER SHOWN 
LIME number (FOR EDITING. NOT USED BY PROGRAM) 

identification number 

WINDING resistance (BOTH WINDINGS REFERED TO PRIMARY) OHMS 
leakage inductance (BOTH WINDINGS REFERRED TO PRIMARY) HENRIES 
SHUNT CAPACITANCE ACROSS PRIMARY TERMINALS-FARADS 
SHUNT CONDUCTANCE ACROSS PRIMARY TERMINALS-MHOS 
IDEAL transformer TURNS RATIO (PRIMARY TO SECONDARY) 
additional ANf'lOTATlON NOT USED BY PROGRAM 
THE SHUNT ELEMENTS WILL BE USED TO COMPUTE A SCALAR COMPLEX 
admittance YRBTR AND SIMILARLY THE SERIES IMPEDANCE ZRBTR 
USIf.G the WINDING RESISTANCE AND INDUCTANCE. NOTE MAGNETIZING 
INDUCTANCE IS NEGLECTED. THE SHUNT CAPACITANCE IS A ZEROETH 
ORDER APPROXIMATION TO THE COMBINED EFFECTS OF BUSHINGS 
AND STRAY CAPACITY. 

THE NATURE OF THE RATIO TRANSFORMER INSTALLATION WILL BE 
inferred FROM THE NATURE OF THE DOWNSTREAM CONDUCTOR SITUATION 
AS IMPLIED BY NEUFO AND NECO. IE 


NEUFO 

0 

NECO 

2 

SINGLE PHASE DELTA 

0 

3 

three phase delta 

1 

1 

SINGLE PHASE AND NEUTRAL (IE SINGLE PHASE WYE) 

1 

3 

three phase WYE 


AT THIS TIME ONLY THE FIRST WILL BE IMPLEMENTED AND IT WILL 
BE ASSUMED THAT TH£ PRIMARY IS CONNECTED PHASE TO NEUTRAL. IE 
A SINGLE PHASE WYE 

therefore downstream SHOULD HAVE NEC0*2 

remember that I2NGR NEEDS TO BE SPECIFIED IN ONWKINiJ NETWORK 
file for IASNsl,3 

IF(NEUFO.EO.O.AND,NECO.E0.2)GOT07Z2 

PRINT, 'RBTR LOGIC IMPLEMENTED ONLY FOR NEUF0=0 .NEC0»2 ' .NEUFO , NECO 
STOP 0400 
722 CONTINUE 

IF(KDRBTR.NE.0)G0T0725 

CALL OPENF (lRBTR .MRBTR . I STAT .1.0.1) 

IF(ISTAT.EO.O)GOT00724 
PRINT 10032. MRBTR. LRBTR, ISTAT 
STOP 192 

724 KDRBTRsl 

725 rewind LRBTR 
«EAD(LRBTR, 10028) 

726 READ (LRBTR, 10028, EN05727) I , ID,XR ,XL ,XC,XG,XN 
IF ( lO-LTYP) 726,728.726 
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07780 727 PRINT 1 00&^ ,L TYP , mrbtR ,;>iSECT 

07790 STOP 727 

07300 728 CONTINUE 

07HIO YPoTRsC.'^'PLXCXGt XTPI »XFRtQ*XC) 

07820 2RBTRSCMPLX (XR«XTPI*XFRFQ*XL) 

07830 YllsYlN(Ul) 

078A0 Y22sYIN<2»2) 

07850 Yl2s(YlN(l,2)^YIN(2*l) )/2. 

07860 Y2K(l,l)sYU 

07870 Y2<(2t2)=Y22 

07880 Y2<(l«2)*Y12 

07890 Y2<(2»l)sY12 

07900 YlsXN»XN*(YlUY22^Yl2*Y12> /2RBTP»Y11*Y22-Y12*Y12 

07910 YIN(l,l)sYRBTR*(Yll*Y22-Y12*Y12)/ (2RBTR»Y1) 

07920 YIsXN/ (YI*ZRBTR) 

07930 VTOPHU»n = (Y22*Yl2)*Yl 

07940 VT0PH(2U)s-(Yll4.Yl2)*Yl 

07950 LCUai 

07960 IF{IASN.E0.2.0R,IASN,E0.4)GOT0730 

07970 VT0PH{l,2)=-VT0PH(l,l) 

07980 YT0PH(2*2) s-VT0PH(2*U 

07990 CALL YADMNU ( YIN,YriEU«LCU»MDIM) 

08000 LCUsi.CU'fl 

08010 730 CONTINUE 

08020 NEUF0=l 

08030 * 33<=LTYP<s99 

08040 WRITE(LDPRL'NREC)NSECT»LTYP,lCU,NECO*VTOPH,YIN,Y2K« 

08050 6 ZNULL*ZNULL«YPBTR»ZR9TR«XN» 

08060 6 2NULL»VNULL»VNULL»VNULL«VNULL 

08070 *** IF(NOUTFL.NE.O)WRITE(LOUT.l0022) ‘PBTR VTOPH , Y2K ♦ Y IN »LTYP ,NPAR ,2NULL 
08080 *** 6 NSECTs* .LTYP*NPAR,NSECT 

08090 *** IF(NOUTFL.NE.O)WRITE(LOUT*10022) 'USE ONLY FIRST COLUMN FOR VTOPH* 

oaioo «** IF (NOUTFL.NE.O)CALL CMTPPT (VTOPH, NEC0»ND1M«L0UT) 

08110 *** IF(NOUTFL.NE.O)WRITE(LOUT, 10022) 'RBTR ,Y2X ♦NECO»LCU«NSECTs • ,NECO«LCU, 

08120 *** IF (NOUTFL,NE.O)CALL CMTPRT(Y2<,NEC0,N0IM,L0'JT) 

08130 *** IF(N0UTFL.N£.0)WRITE<L0UT, 10022) 'RBTR Y I N ,LTYP ,NPAR , NbECT* » ,LTYP ,NPA 

08140 *** IF(N0UTFL,NE.0)CALL CMTPRT(YIN,LCU,N0IM,L0UT) 

08150 NECOsLCU 

08160 GOTOllOO 

08170 * this SECTION IS FOR 30 AND 10 LINES WITHOUT 

08180 * paralleling SECONDARIES 

08190 * 100.LE.LTYP.LE.999 

08200 760 CONTINUE 

08210 * IF(N0UTFL.NE.0)WRITE«L0UT,10044)LTYP,NSECT 

08220 * WE FIRST MAKE SURE THAT THE PROPER DPU FILE IS OPENED 

08230 * lOMCD IS THE VARIABLE WHICH KEEPS TRACK OF WHICH FILE IS 

38240 * open. if the PROPER DPU FILE IS NOT OPEN, WE CLOSE THE PRESENT 

08250 * DPU FILE AND OPEN THE PROPER ONF. lOMCD IS INITIALLY -I 

08260 * NOTE THAT THE ONLY PARAMETER WHICH COULD CHANGE TO 

08270 * CAUSE A CHANGE IN FILE, HENCE OHFCODE lOMCD IS UNIQUE 

08280 IF(!OMCD.EQ,INDRHO)GOT0800 

08290 CALL DETACH (LDPU* I STAT * > 
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083C0 
08310 
08320 
08330 
083<f0 
06350 
08360 
08370 
08380 
08390 
08^00 
08A10 
08A20 
08A30 • 
08AA0 
08450 
08460 
08470 
08480 
08490 
OSSOO 
08510 # 
08520 # 
08530 * 
08540 
08550 
08560 
08570 
08580 • 
08590 ♦ 
08600 ft 
08610 ft 
08620 
08630 
08640 
08650 
08660 ft 
06670 
08680 
08690 ft 
08700 ft 
08710 
08720 
08730 
08740 ft 
08750 ft 
08760 
08770 
08780 
08790 
08800 ft 
08810 


IDMCDsIMDRHO 

Encode ('’dpu* loo^S) ifcode*iooo»itemp» iomcd» iasn 

call OPtMF(LOPU,MDPU»lSTAT,l .1,1) 

IFUSTAT,EO.O)GOT0770 

I "^E ( 06 , 1 0032 ) VOPU ,LDPU ♦ I STAT ..N'NTWk 
770 CALL RAHSIZ<LDPU.NDPU5Z.l) 

«EAD(LDPU» 1) JFC.JTV.JOM.JASN.NRCD.LPGC.NTYP.JOIM, 

6 iREC.nOTE.XVlME.XFREO 

IF(LREC,NE.NDPU$2)CALL ERRSTT(Cri.352*LREC.NDPUSZ«LDPU) 
IFUFCODE.NE.JFOCALL FIlSTO(^DPU,*FCOOE’ ♦IFC00E«JFC.I0HCD) 
IFUTEMP.NE.JTM)CALL FIlSTO(MDPU,* ITEMP* .ITEMP.JTM.IOMCD) 

IF{ IO^•CD.ME.JOM)CALL F I lSTQ (MOPU. • OHMS • . I TEMP . JTM.NSECT ) 

IF( IASN,NE.JA5N)CAlL FIlSTO(MDPU. ‘ASSUM* ,I ASN.JASN.IOMCD) 

READ IN DIRECTORY VECTOR 
DO 780 JS2.NRCD 
<1Is(J-2)*LREC*1 
K22sMIN0(NTYP-99. (J-1)*LREC) 

«EAO(LDPU»J) (IDIR(KOO) .KOOaX 1 1 ,K22 ) 

IF(X22.E0,NTYp-99)G0T0790 
780 CONTINUE 
790 CONTINUE 

PRINT, »AT 5643 IREC ,NTYPs • , IREC ,NTYP 
PRINT 888, (J, I DIR (J) .Jsi.NTYP-99) 

THE proper DPU file IS NOW OPENED AND CHECKED OUT 

ano continue 

IF(LTYP,GT,NTYP)CALL ERRSTT ( CN, 353, LTYP,NTYP, IREC) 
IR=lDIR(LTYP-99) 

IF(IR,LE.0)CALL ERRSTT <CN, 354, LTYP,NTYP,IR) 

USING LTOP to avoid UNNECESSARY DPULIJKN READ WHEN NEW 
LTYP SAME AS OLD LTOP. NOTE MUST NOT CHANGE ANY OF THE 
returned variables with THIS STRATEGY 
IF(N0UTFL,NE.0)WRITE(L0UT, 10022) 'AT 5364 LTYP, LTOPs* , LTYP, LTOP 
1F(LTYP,E0 .lT0P)G0TO810 

CALL OPUFRW (LD°U, IR,0,N0IM.lTUP,NRECO.NTOT,NUMF,NUMS,NEUS,NEUF, 
6 2,Y.20, '0,S,SI,OD 

IF(N£C0.QT,4) print 10056, 0282, NSECT,lTYP,NRECO,NEUF 

establishing NEUFe for use with NECO checking elsewhere 

NEUFEsNEUF 

IF( IASN.GE,3)NEUFEsO 

IF(N0UTFL,NE,0)WRITE(L0UT. 10022 ) 'AT 538 I LTYP , LTOP ,NRECO* • , 

6 LTYP, LTOP, NRECO 

IF(LTYP,NE.LT0P)CALL FIL5T0(MDPU,'LINE TYPE', 

6 LTvp,LTOP,IOMCD) 

810 CONTINUE 

DETERMINE IF AT TERMINUS WHERE NECO AND NEUFO NEEDS TO 
BE redefined 

ILSON,EQ,0,AND,IRSON.EO,0) NECOsNRECO 
IF( lLS0N,Ei2^C.AN0,lRS0N,EQ«0>NEUF0*NEUF 

IF(NEUF,N£.NEUF0)PRINT 10057, 0355 , NSECT,LTYP,NEUF,N£uFO ' 
IF(LTOP.EQ.LTYP)GOT0850 

IF ABOVE TRUE NEED NOT REPEAT ZEROING 
IF(NRECO.EQ,NDIM)GOTObSu 
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08A2C 

♦ 

ZERO ALL uriNECFSSAKY ELE'HEMTS 

0HH30 


IF(NRtC0.LT,ri JlM)GCT08 2n 

0B840 


>''R1TE(06»10047) NREC0»riPII-,LTYP,MDPU 

08850 

820 

CONTINUE 

08860 

ft 

begin zeroing 

08870 


00 830 IsNRECOftlfMDIM 

08880 


OLdJsZERO 

08890 


DO 830 w»*l,NDIM 

08900 


Z ( I « J) sZERU 

08910 


Y(I,j)sZER0 

08920 


Z0n,J)-^ZER0 

08930 


Y0( I ,J) sZERO 

08940 


S(I olsZERO 

08950 


81 (I,J}sZERO 

08960 

830 

CONTINUE 

08970 


DO 840 I»l»NRECO 

08980 


DO 840 JsNRECOftUNDIM 

08990 


Z(Nj)aZER0 

0900( 


Y(I, jlsZtIRO 

09010 


Z0(l , J)=ZER0 

09020 


YOU ♦J)=ZERO 

09030 


5(I,j)sZER0 

09040 


SI ( I ,J) sZERO 

09050 

00 

o 

CONTINUE 

09060 

ft 

»»/E ARE NOW READY TO PROCESS THIS INFORMATION. 

09070 

ft 

determine load On segment Y2KsYlNftYL0AD 

09060 

ft 

first zero YLOAD 

09090 

850 

DO 860 Isl.NOIM 

09100 


DO 860 J*UNDIM 

09110 


YLOAD(I«J)aZERO 

09120 

860 

CONTINUE 

09130 

**» 

IF(NOUTFL,NE.O)WRITE(LOuT, 10022) ‘NORMAL NODE PROCESSING 

09140 

ft** 6 

LTYP,NPaR<,NSECTs‘ .ltyp.npar.msect 

09150 

*** 

IFINOUTFL.NE.O.ANO. (ILSOM.NE.O.OR.IPSON.NE.O) ) 

09160 

*** 6 

WRlTE(L0UT«i0022) ‘DOWNSTREAM Y I N »LTYP »NPAR .NSECTs • , 

09170 

ft** (, 

ltyp.npar.nsect 

09180 

*** 

iFlNOUr: L.NE.O.AND. (ILSON.NE.O.OR, IRSON.NE.O) ) 

09190 

*** 6 

CALL CMTPRT (YIN, NEC0»NDIM, LOUT) 

09200 

* 

NOW RESET LCUsNRECO FOR CHECKING ON YIN,YRPIM,ETC 

09210 


LCUsNRECO 

09220 

* 

IF(N0UTFL.NE.0)WRITE(L0UT, 10022) ‘AT 6380 NRECO ,NECO ,LCU* ‘ 

09230 

* 6 

NRECO,NECO,LCU,NSECT 

09240 

* 

determine YLOAD TOTAL,' 

09250 

ft 

NOTE EVENTUALLY WANT BOTH YLOAD AND Y2K 

09260 

ft 

WHICH accounts FOR SOME EXTRA LOGIC 

09270 

* 

CHECK TO SEE IF THERE IS A PRIMARY LOAD 

C9280 

* 

remember LEAST SIGNIFICANT DIGIT RESEVERED FOR STATUS 

09290 


IPRIM=INLCSA(NSECT,13) /ino 

09300 


lCONsIPRlM/1000 

09310 


IPsMQDdPRIM.lOOO) 

09320 


IF(IPRIM,EO.O)GOT0920 

09330 


IF(KPRIM,NE.O)60T0870 
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09340 
09350 
09360 
0937H 
093fe0 
09390 
09400 
09410 
09420 
09430 
09440 » 
09450 * 
09460 
09470 * 
09480 • 
09490 
09500 
09510 * 
09520 » 
09530 * 
09540 
09550 
09560 
09570 » 
09580 
09590 
09600 * 
09610 
09620 
09630 * 
09640 
09650 
09660 
09670 
09680 
09690 
0970d 
09710 
09720 * 
09730 » 
09740 
09750 
09760 
09770 * 
09780 * 
09790 • 
09800 ♦ 
09810 
09820 
09830 
09840 
09850 
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t.KODECMPRiMf 10048) I FCOOE* 1000 * I TEMP 
CALL 0 PENF(LPRIw,V.FRIm,i5TaT,UI«1) 

IFUSTrtT.NE.O) CALL F I LSTO ( ’IPR I M , • STATUS • «0 ♦ I 5TAT ♦ 370 ) 

CALL PAnSI2(uPRIM,r.PPIS2,l) 

WEADCL^RIr'" 1) JFRE»JTP,JREC.IP«M»NDTF.XTIME 
IFUFC0DE.r4E.jFRE) call FILSTO (MPP IM» »FREQ‘ « I FCODE ♦ JFRE . 370 ) 

IF( ITEMP.ME.JTP)CALL F I LSTO < MPP I M, 'TEMPERATURE *. I temp. JTP. 370) 
KPRiMxl 

87C read (LPRIM* IP* I ) IPRI.NCU.IFLAG. il. 12. 1 3. 

6 ( <YL0AD( I .J) .Isl ,NCU) .Jsl.NCU) 

IF FOLLOWING TRUE. THE HAVE NORMAL CASE. IE NO OPEN DELTA 
PRiriT.'AT 6591 UU NCU«* .NCUUCON.LCU.NUMF 
IF( lC0r..E0.0)G0T0900 

AT THIS POINT ONLY IC0N*4.5 .6.7.B.9 IS PERMITTED CORRESPONDING 
TO OPEN DELTA LOAD 

IF( IC0N.LT.4.0R.IC0N.GT,9)PRINT 10062 .0355. NSECT.LTYP. 

6 NEUF.NUMFUPRIM 

NOW CHECK AGAIf.ST ANY ILLEGAL COMBINATION. LOGIC COULD 
PROBABLY BE NEATER 

FOR OPEN delta MUSi HAVE NEUFsl AMD NUMF=2.3 
IFlNEUF.EO.O.OR.NUMF.EO.DPRiriT 10062 .0365 .NSECT .LTYP « 

6 NEUF.NUMF.IPRIM 

IF(NUMF.EO.3)GOTO880 

FOR IC0N*5.6«8.9 MUST HAVE NUMF*3 
IFl ( IC0N.E0.5.0R.IC0N.EQ.6.0R.IC0N.EQ.8.0R.IC0N.EQ.9) 

6 .AND.NUMF.NE.3)PRINT 10062 .0366 .NSECT .LTYP ,N£UF ,NUMF . I PR IM 
BY inference 

IF{ <IC0N.E0.4.0R.iC0N.EQ.7) .AND.NUMF.LT«2) 

6 PRINT 10062.0367. NSECT,LTYP.'4EUF,NUMF.IPRIM 

FOR OPEN delta TRANSFORMERS NCU CAN BE 2 OR 3 
BflO CONTINUE 
NCUsNUMF 

IF(IC0N.E0.4)G0T0900 

lFUC0N.LE.6)GOT0fl9O 

YlxY(l.l) 

Y(1.1)sY(. 2) 

Y(2.2)xY1 

890 IFUCON.EO,7)GOT0900 

NOTE above that FqR IC0N*4.7 COMPLETE FOR NUMFsl.3 
AT THIS POINT ICON CAN ONLY BE 5. 6.8.9 AND WE KNOW NUMF*NCU»3 
CALL CMTIRC(YlOAD.2.3.NCU.NCIM) 

IF(IC0N.EQ.6.0R.IC0N.EO.9iCALL CMT IRC ( YLOAD. l .2 .NCU .NOIM) 

900 CONTINUE 

print. 'AT 6619 I PR I M . 1 COM . IPs » , IPR I M . ICON. I P 
CALL CMTPRT(YL0AD.NCU.N0IM.06) 

IF neutral not at Zero potential, augment YLOAD 

WITH YNsI.O/IZNGR. previous TEST PREVENTS /O 
IF( IASN,EO,3.0R.IASN»E0.4)GOT0910 
IF(NCU.E0.LCJ)G0T0910 
IFINEUF .EO. 0)GOT0910 
CALL YADMNUI YLOAD. YNEU. NCU. NOIM) 

NCUsNCU*! 
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09860 910 CONTINUE 

09870 * NOW CHECK 0‘J PRIMARY LOAD COMPATIBILITY (SEE 362'*'2) 

09880 IF (NCU. ME. LCU) PRINT ln063«0369,MSFCT,LTYP,LCU,^iEC0*^4CU♦ IPRIM 

09890 IF(lPfiI.NE.lP)PRI:<T 10058 ,0368 ,USECT ,LTYP , I PR I • I P 

09900 *** IF(H0UTFL,.''1E.U)HRITE(L0UT, 10022) 'PRIMARY LOAD , IP,NSECTs • , IP ,N5ECT 
09910 IF(N0UTFL,N£.0)CALL CMTPRT (YLOAD,fICU»NDIM,LOUT) 

09920 * lOPC LOGIC TO FOLLOW IS TEMPORARY AND ALLOW CONTROLS 

09930 » whether TRANSFORMER OPEN OP SHORT SECONDARY IS USED OR 

09940 * whether transformer LOADING IS IGNORED ALTOGETHER 

09950 920 CONTINUE 

09960 IF( IOPC*LT,0)GOT01010 

09970 IPHSE=ITTY/1000 

09980 ITT=ITTY-1000*IPHSE 

09990 IF(ITT,EQ,0)GOT01010 

lOOOO NCU=9999 

lOOlO IFdOPC .EG. 3)G0T0940 

10020 IF(ITRAN.NE.O)GOT0930 

10030 ENCODE (KTRAN, 10049) IFCOOE 

10040 CALL 0PENF(LTRAN,MTRAN,ISTAT,UI,1) 

ir050 IF(ISTAT.NE.0)CALL FlLSTO(MTRAN, 'STATUS* ,0, ISTAT, 3710) 

10060 CALL RANSI2(LTRAN,NATRSZ,1) 

10070 READ(LTRAN« 1) jfre,jrec*ndte,xtime 

10080 IF(IFC0DE.NE.JFRE)CALL FILSTO(MTRAN,'FREO ' ,IFC0DE«JFRE,3710) 

10090 1TRAN=1 

lOlOO 930 CONTINUE 
lOllO 940 CONTINUE 

10120 IF(IPHSE.E0,l.Af4D.MEUF,E0.0)PRINT 10059, 371 1 ,N5ECT,LTYP, I TTY ,NEUF, 

10130 6 NUMF 

10140 . IFdPHSE .LT. 0 .OR. IPHSE .GT,9)PRI?4T 10059, 3710, NSECT.LTYP.ITTY, 

10150 6 NEUF,NUMF 

10160 IF ( (IPHSE. EG. 2) .AND. (NEuF.EO.O.OR.NUMF.EQ. 1 ) ) 

10170 6 PRINT 10059,3371 ,NSECT,LTYP,ITTY,NEUF,NUMF 

10180 IF( (IPHSE. EG. 3) .AND. (NEUF.E0.0,0R.NUMF.LT.3) ) 

10190 6 PRINT 10059, 3372, t4SECT,LTYP,lTTY,NEUF,NUHF 

10200 IF( dPH5E.EQ.4.0R.IPHSE.EQ.7).AN0.NUMF,EO.l) 

10210 6 print 10059, 3373, NSECT,LTYP,ITTY,NEUF,NUMF 

10220 IF( (IPHSE. EG. 5. OR. IPHSE. EG. 6. OR. IPHSE. EG. 8,0R. IPHSE. EG. 9) . 

10230 6 AND,NUMF.NE.3)PRINT 10059 , 3374,NSECT ,LTYP, i TTY ,N£UF,NUMF 

10240 IFdOPC. LE.2)G0T0950 

10250 * USE SPECIAL TABLE PROCEDURE 

10260 * print, 'AT 6943 1111 NCU,LCU,NECO=' ,NCU,LCU,NECO 

10270 CALL TRANAD(YTPUT,IFC0DE, ITT, LDTRA,TRANF,TRANAY, 10,9) 

10280 IFINOUTFL. ME. 0>WRITE(LOUT, 10022) 'YTPUT FROM TRANAD» ITTY,NPAR,NSECT= 

10290 *** 6 ,ITTY,NPAR,NSECT 

10300 **♦ IF(NOUTFL.NE.O)WRITE(LOuT,10067)VTPUT 

10310 * PRINT, 'AT 6945 * I FCCDE, ITTY , YTPUTs » , I PCODE . I TTY , YTPUT 

10320 QOT0980 

10330 * THIS PROCEDURE USES ANALYTIC TRANSFORMER MODEL RECORD 

10340 • MUST CORRESPOND WITH 0TRANN12 FILE INFORMATION 

10350 * IN THE following IOPCsO,! ARE TREATED BY MODIFYING OLOAD 

10360 * NOTE this ENTAILS AVAILABILITY OF DTRANN12 FILE FOR THESE CASES 

10370 950 IF(LODFLG,NE.O)GOT0970 
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10380 960 WQITE(06*100C2) 

10390 wead»p»'agmn*pmagst*pangmn.pangst 

10<»00 WP ITc (06* 10003) PMAGMruP*^AGST,?ANGMf4,PANGST 

10<»10 HF.A0,ITtST 

IOA20 IF( ITEST.r4E.0)G0TC960 

10430 LODFlGsI 

10440 970 ITRECsITTY - IPHSE*lOOO*.l 

10450 . IFUTPEC .LE, 0)PRINT l0060,3730ff4SECT«LTYP,ITTY*lTREC 

10460 PLMAGSUNIFM2 ( I *PMAGMN,PmAGST) / 100. 0 

10470 PLANG=UNIFM2 ( I *PANGMN,PaNGST) 

10480 PLANGsAAiO0(PLANG«36O.) /RAD 

10490 QLOAD=CFPLX(PLMAG*COS(PlANG) *PLMAG*5IN(PLANG) ) 

10500 IFtlOPC .EQ. 0)QL0AOsCMPLX(l0O00.*0) 

10510 IFUOPC .EQ. DQLOADsZERO 

10520 CALL YTRANP(YTPUT.VSPRAT.OLOAD.ITT.LTRAN) 

10530 980 YTPUTsYTPUT*BETA 

10540 CALL YTRAMKYTPUT.YTEWP.IPHSE.NDI^*) 

10550 NCUsnUMF 

10560 ♦ PRINT. »AT 6964 1111 YTEmPs* 

10570 * CALL CNTPRT(YTEMP,MCU,N0I«.06) 

10580 IFCNEUF .EO. 0)GOT0990 

10590 IFnA3N.E0.3.0R.lASN.EQ.4)G0TO990 

10600 CALL YADMNU(YTEMP,YNEU.NCU,N0IM) 

10610 NCU=NCU*>1 

10620 990 CONTINUE 

10630 * IF(N0UTFL. NE.0)WRITE(L0UT, 10022) *AT 7080 NECO.fICU.LCU* • .NECO.NCU.LCU 

10640 * PRINT.'AT 7081 » NECO.NCU.LCU= • .NECO.NCU.LCU 

10650 IF(NCU,NE.LCU)PRINT 10061. 0374. NSECT.LTYP.LCU.NECO.NCU 

10660 * IF(NOUTFL.NE.O)rtRITE(LOuT. 10022 ) *AT 6075 NREC . IPR 1= • .NREC . IPRI 

10670 IF( IFLAG.NE.0)PRINT 10058 .0376 .NSECT .LTYP. IPR I 

10680 00 1000 Ul.NECO 

10690 DO 1000 Jsl.NECO 

10700 1000 YLOAOn.J)=YLOAD(I.J).YTEMP(I.J) 

10710 IF(N0UTFL. ME. 0)WRITE<LOUT. 10022) ‘TRANSFORMER LOAD. I TTY .NPAR .NSECTs • . 

10720 6 ITTY.NPAR.NSECT 

10730 *** IF(NOUTFL.NE.O)CAlL CMTPRT (YTEMP.NECO.NOlM.LOUT) 

10740 »*♦ IF (NOUTFL.NE.O) WRITE (LOUT. 10022) ‘ YLOAD^YTRAN. I TTY .NPAR .NSECTs *, 1 TTY. 

10750 *** 6 NPAR. NSECT 

10760 **♦ IF(N0UTFL.NE.0)CALL CMTpRT ( YLOAO.NECO.NOIM.LOUT) 

10770 * CALL CMDBAN(YTEMP,NECO.NDIM.200.06.WXAREA) 

10780 lOlO CONTINUE 

10790 * IF NOT AT TERMINUS .THEN NECO ASSOCIATED WITH YiN 

10800 * SHOULD 8E EQUAL TO LCU 

10810 * IF AT terminus DO NOT ADD YIN WHICH MAY HAVE GARBAGE 

10820 * ALSO NOTE IN THIS CASE NECO HAS BEEN DEFINED 

10830 IF( IlS0N.EO.0.AND.IRS0N,EO.0)G0TO103O 

10840 IF(NEC0.NE.LCU)PRINT 10061. 0375. NSECT. LTYP. LCU. NECO 

10850 DO 1020 Isl.NECO 

10860 DO 1020 Jsl.NECO 

10870 1020 Y2X(I.J)sylOAD(I.J)-.YIN(I.J) 

10880 00T01050 

10890 1030 DO 1040 1 = 1. NECO 
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10900 00 1040 JsUNECO 

10910 10«»0 Y2< ( I ,J) syL0AD( I « J) 

10920 1050 CONTIMUE 

10930 **♦ 1F(NOUTFL,NE.O)v((RITE {LOUT»10022) » Y2K »LTYP ,NPAR ♦NSEC'^s * » 

10940 *** 6 LTYP»NPAQ,SSECT 

10950 ♦** IF (N0UTFL*NE«0)CALL CMTPRT (Y2< *f{ECO*NOIM»LOUT) 

10960 * LOAD HAS BEEH CREATED AND CAN MOW 8E USED IN PROCESSING 

IQ970 * the ^EXT step IS TO CREATE LIME PARAMETERS 

10980 IF(LENGTH,i.T,0)PRIMT 10055*3375,NSECT,LTYP, LENGTH 

10990 IF (LENGTH, GT,0)GOTOlOaO 

UOOO 00 1060 Isl*NECO 

llOlO bM(I)sZERO 

11020 CM(I)52ER0 

11030 00 1060 Jsl*NECO 

11040 APHI (I,j)sZERO 

11050 bPHI (I,J)sZERO 

11060 CPHin,J)sZ£RO 

11070 OPHin.JlsZERO 

11080 VTOPH(I,J)sZERO 

11090 YIN(I,J)=Y2K(I,J) 

11100 1060 CONTINUE 

11110 DO 1070 Isi,NECO 

11120 AM(I)sAONE 

11130 DM(I)=aOME 

11140 APHI ( I ,I)sA0NE 

11150 DPHI (I,I)=aONE 

11160 VTOPH(I,I)sACNE 

11170 1070 CONTINUE 

11180 GOT01090 

11190 1080 XslENGTH/10.0 

11200 Call abcden(Ol»zo,yo*s»si«x»lcu*ndim,am,8m, 

11210 6 APHI ♦8PHI, CPHI, DPMI ♦YTEMP) 

11220 Call cmaP3C(aphi «cphi ,yzk »vtoph»lcu«lcu*lcu»noim) 

11230 CALL CMTIMV(VTOPH,LCU,LCU*HDIH,wKAREA) 

11240 Call cmapbc(CPhi ,dphi «Y2K,ytehp,lcu,lcu,lcu,ndim» 

11250 call CMTMPY(YTENP,VTOPH,YIN,LCU,LCU,LCU*NOIM) 

U260 * IN this case WE ALSO COMPUTE OTHER MATRICES 

11270 1090 CONTINUE 

11280 * IF(N0UTFL. ME*0)WRITE(L0UT, 10022) »AT 6405 N5ECT*NREC=» *NSECT»NREC 

11290 * NO CHANGE IN NUMBER OF EFFECTIVE CONDUCTORS IN AND OUT 

11300 * 100<sLTYP<=999 

11310 **RITE(LDPRL*NREC)NSECT«LTYP,LCU,NEC0*XLENTH,ZNULL*AM,BM,CM, 

11320 6 APHI ,BPHI ,CPHI *DPHI ,VTOPH,YLOAD»ZNULL»YIN*ZNULL«Y2K* 

11330 6 VNULL»VNULL»VMULL»VNULL*OLOAD»VSPRAT 

11340 * IFCNOUTFL. NE*0)WRITE(L0UT, 10021) »Y2K*»NSECT 

11350 * IF(N0UTFL.NE.0)CALL CMTPRT ( Y2X fNECO^NDIMfLOUT) 

11360 ♦ THIS SECTION FOLLOWS PROCESSISNG ALGORITHM (8/15/77) 

11370 * AFTER PROCESS NSECT 

11380 I 100 CONTINUE 

11390 * IP INOUTFL,NE»0) WRI TE <LOuT» 10021 ) 'VTOPH* , NSECT 

11400 * IF(NOUTFL,NE.O)CALL CMTPRT(VTOPH*LCU»NDIMfLOUT) 

11410 IF(N0UTFL*NE»0)WRITE(L0UT»10022) *yin»ltyp*npar»nsect=* ♦ 
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llhZO 
11430 *** 
11440 
11450 
11460 

11470 1110 

11480 * 
11490 » 
11500 
11510 

11520 1120 

11530 * 
11540 * 
11550 
11560 
11570 * 
11580 
11590 
11600 
11610 

11620 1130 

11630 
11640 * 
11650 * i 

11660 * ( 

11670 
11680 
11690 
11700 
11710 
11720 

11730 1140 

11740 * 
11750 * 
11760 

11770 1150 

11780 * 
11790 
11800 *** 
11810 **♦ 
11820 *** I 
11830 *** 
11840 »** 
11850 4** < 

11860 *** 
11870 

11880 1160 
11890 # 
11900 
11910 # 
11920 
11930 
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► ltyp«mpar,nsect 

IF (MOUTFL •.*!£. 0) call CMTPRT (YIN *uCU«MOIM, LOUT) 

IF(MPAR.GT,0 )GOTOlllO 

if(I:4D,eo.nomax)Gotoii8o 

WP I TE( 06^10050 INSECT* I NO 
IF(LEVPAR.EQ.LEVND)G0T01180 

THt ABOVE branch OCCURS WHEN THE NEXT SECTION TO 
BE PROCESSED IS THE PARENT TO THE CURRENT SECTION 
IF(LEVPAR.lT.LEVND)GOT 01120 
v<R I TE ( 06 * 1005 1 ) MPAR fLEVPAR ,NSECT *LEVND 
IF(LEVPT(LEVND) .LT.DG0T01160 

THIS LOGIC PICKS UP SAVED SIBLING YIN AND 
CHECKS WITH EXPECTED NECO 
LEVPT(LEVND) =0 
NSTAK=NSTAK-1 

print* *AT 8061 NSECT*NEC0*NSTAK»,NSECT*NEC0*NSTAK 
IF(NECOV(NSTAic) .E0.NEC0)G0TOll30 
PRINT*»NSECT.NECO*NSTAK*NECOV(NSTAK)s» 

PR I NT ♦ NSECT * NECO* NSTAK ,NECOV ( NSTAK ) 

PRINT**CHECK NECO CONSISTANCY ON BROTHER OF NSECTs », NSECT 
CONTINUE 

NPARsINLCSA(NSECT*2) 

IF (NOUTFL.NE.O) WRITE (LOUT* 10020) »NSECT.NPAR*LS0N*RS0N*NSTAK* • * 

► *YIN*YST0RE*YSUM»* 

► NSECT*NPAR*INLCSA(NPAR,3) * INLCSA (NPAR *4) *NSTAK 
DO 1140 I=1*NEC0 

>DIAG1(I)sYIN(I*I) 

YDI AG2 ( I ) sYSTORE U ♦ I *N5TAK ) 

DO 1140 J=1*NEC0 

YTEHP( I *J) sYSTORE ( I *J*NSTAK) 

YIN(I*J)sYIN(I,J)*YSTORE(I*J*NSTAK) 

CONTINUE 

IF (NOUTFL.NE.O) call CVDBAN ( YDI AGl *NEC0*NDIM*200*L0UT.WKAREA) 

IF (NOUTFL.NE.O) call CVDBAN ( Y0IAG2 *NEC0*N0IM*200*L0UT*WKAREA) 

DO 1150 Isi.NECO 
YDIAGI (I)sYIN(I.I) 

IF (NOUTFL.NE.O) CALL CVOBAN (YDI AGl *NEC0*N0IM*2OO*L0UT*WKAREA) 
NS1 BsINLCSA(NPAR*3) 

IF(NSIB.EQ.NSECT)NSIB=INLCSA(NPAR*4) 

IF(NOUTFL.NE.O) WRITE (LOUT *10022) ’SIBLING YlN*NPAR*NSIB*NSECTs« , 
NPAR.NSIB*NSECT 

IF (NOUTFL.NE.O)CALL C.MTPRT(YTEMP*NEC0*NDIM*L0UT) 
IF(N0UTFL.NE.0)WRITE(l0UT*10022) ’TOTAL YIN*PARENT*SIBLIN6S=» . 
NPAR*NSIB*NS£CT 

IF (NOUTFL.NE.O) call CMTPRT ( YIN,NEC0*NDIM*L0UT) 

G0T01180 

LEVPT(LEVND)*1 

THIS LOGIC SETS ASIDE YIN AND CURRENT N£CO FOR LATER RECALL 
NECOV ( NSTAK ) sNECO 

PRINT* ’AT 8141 NSECT * NECO* NSTAK ’ *MSECT* NECO* NSTAK 
DO 1170 Isi.NECO 
DO 1170 Jsl*NECO 
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L1940 

U950 

11960 

11970 

11980 

U990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 


Y5T3RE( I »J,,N5TAK) =Yiru I ,J) 

YIN(I «J) =ZER0 
1170 CC^4TI^UE 

NSTAKsmSTAK^I 

IF(i\STAK •GT.49)DRiMT,tM5XAK.,CiT,49 STOP* 

1130 CONTINUE 

* END OF MAJOR LOOP 

I TE ( LDPRL • 1 , ERR = 440 ) N I DEN , NDATE * WT I ME , I FCODE « I TEMP ♦ 

6 I ASN»NOMAX»MRECiMLCSA«r4S6QV*MROAT«MAXNO»MECO»JROOT« 

6 pmult,iopc»xdb«xang 

NREC=IhLCSA(jROOT,14) 

READ(LDPRL»NREC)NSECT,LTYP,NEC0»NEC0,XLENTH,2NULL,AM,tiM»CM, 
6 APhI ,BPHI ,CPHI ,D rMl *VT0PH,YL0AD,ZNULL»YIN,2NULL*Y2K* 

6 vnull»vnull*vmull»\/null«oload*vsprat 

LTEMprLOUT 

L0UT=42 

|^RITE(L0UT, 10021) ‘INPUT ADMITTANCE* 

*^RITE (LOUT, 10021) *DB-ANGLE* 

CALL CMOBAN ( YIN, NECO,NDIM,200, LOUT, WKAREA) 

*^R I TE( LOUT, 10021) ‘RECTANGULAR* 

CALL CMTPRT(YIN,NEC0,NDIM,L0UT) 

Call cmtcopcy- '4,ytemp,neco,ndim) 

CALL CMTlr4VCYTEMP,NEC0,MEC0,NDI.M,>IXAREA) 

WRITE (LOUT, 10021) ‘YIN INVERSE* 

CALL CMTPRT (YTEMP*NECO»NDIM,LOUT) 

DO 1200 I=1,NEC0 
TEMPsZERO 
DO 1190 J=1,NEC0 
TEMP=TEMP*YIM(I,J) 

1190 CONTINUE 
1200 ZT(I)sTEMP 

WRITE(LOUT, 10021) ‘CURRENT DRIVE FOR UNIT VOLTAGE* 

CALL CVEPRT(ZT,NEC0,NDIM,L0UT) 

DO 1210 I=1,MEC0 
1210 ZT(1)=A0ME/YTEMP(I,I) 

WRITE(L0UT, 10021) 'SINGLE PHASE CURRENT DRIVE* 

CALL CVEPRT(ZT,MECO,NDIM,LOUT) 

LOUTsLTEMP 

CALL DETACH(LDPRL,ISTAT,) 

Call detach(ldain,i5tat,) 

Call detach(ldpu,istat,) 

CALL DETACH(LDSEC,ISTAT,) 

<TR5EC=0 

CALL DETACH(LTRAN,ISTAT,) 

ITRANsO 

IF(NOUTFL.NE.O) PRINT, 'REMEMBER WROTE OUTFILE **MPRS 
1F(.NCUTFL.NE.0)CAlL DETACH(L0UT,ISTAT,) 

CALL DETACH(LPRIM,ISTAT,) 

<PRI.M=0 

* CALL DETACH(LRMTR,ISTAT,) 

<DRBTP=0 

CALL DETACH(LSUBN,ISTAT,) 
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12460 LTOPs-l 

12470 NECOs-l 

12480 PRINT«'TYPE 1 TC CONTIMUE OR CP TO STOP* 

12490 read, I 

12500 IP(I,£Q.0)STCP 9000 

12510 QOTOlOO 

12520 » THE following PROCEDURE IS USED TO KEEP LOGICAL CHECK ON 

12530 * THE NUV3ER OF EFFECTIVE COtsDUCTORS TO PREVENT/DETECT 

12540 * POSSIBLE ERRORS IN LOGIC OP FILE RECORD INDEXING. 

12550 * LCU WILL REPRESENT THE NUMBER OF EFFECTIVE CONDUCTORS 

12560 * FOR THE COMPUTATION OF THE NEW YIN FOR THE CURRENT SECTION. 

12570 * NECO will REPRESENT THE NUMBER OF EFFECTIVE CONDUCTORS 

12580 ♦ associated WITH THE MET YIN BEING PRESENTED TO THE CURRENT 

12590 * SECTION BY 'DOWNSTREAM* EFFECTS. 

12600 » NCU IS USED TO CHECK CONSISTANCY OF PRIMARY LOAD AND 

12610 * expanded distribtuion transformer loads 

12620 * EXCEPT FOR SINGLE PHASE TO THREE PHASE TRANSITIONS AND 

12630 * RATIO BANK TRANSFORMER SITUATIONS, AND OTHER THAN 

12640 * POSSIBLY ZERO LENGTH SECTIONS, LCUaNECO. 

12650 * A VECTOR N£COV ( 15 ) W ILL BE USED TO KEEP TRACK OF NECO 

12660 * ASSOCIATED WITH THE SAVED YIN IN THE STACK 

12670 * DAPRYLIJ RANDOM BINARY FILE CONTAINING PRIMARY LOAD DATA 

12680 # DARBTRLI RANDOM BINARY FILE CONTAINING RATIO BANK TRANSFORMER DATA 

12690 * DASECDLI RANDOM BINARY FILE CONTAINING SECONDARY LOAD DATA 

12700 * DATRANLI random BINARY FILE CONTANING DISTRIBUTION TRANSFORMER DATA 

12710 * DNWKInij ascii file CONTAINING NETWORK LOGICAL DESCRIPTON 

12720 * ITRAN Flag to CONTROL OPENING DTRANNiJ 

12730 * lAHEC RANDOM RECORD ADDRESS ASSOCIATED WITH FILE DARBTRLI 

12740 * lASN ASSUMPTION CODE 

12750 * ICONO integer LENGTH CODE FROM DNWKINLI 

12760 * IDRBTR RATIO BANK TRANSFORMER IDENT READ FROM DARBTRLI 

12770 * IFCODE frequency CODE 

12780 * INORHO OHM CODE 

12790 * lOMCD OHMCODE ASSOCIATED WITH CURRENT OPEN DPULIJKN FILE 

12800 * lOPC temporary control flag for open vs short VS DISREGARD TRANS 

12810 * IPHS PHASE CONNECTION CODE 

12820 # IPRIM primary LOAD CODE 

12830 » IRECD RANDOM RECORD ADDRESS ASSOCIATED WITH FILE NTLIJKNM 

12840 * IRES OHM CODE FROM DnWKIMLI 

12850 # IRTRAN' DISTRIBUTION TRANSFORMER TYPE CODE PLUS 1 

12860 # ISECD SECONDARY LOAD TYPE CODE 

12870 * ISTM ISTM^IsLAST ReCORD IN DASECDLI FILE 

12880 * ITEMP temperature CODE 

12890 * ITTM ITTM^IslAST RECORD IN DATRANLI FILE 

12900 * ITTY DISTRIBUTION TRANSFORMER TYPE CODE 

12910 # IZNGR INTEGER GROUNDING ADMITTANCE 

12920 # JROOT ROOT SECTION NUMBER 

12930 * KDRBTR FLAG TO CONTROL OPENING DARBTRLI 

12940 » KPRIM FLAG TO CONTROL OPENING DAPRYLiJ 

12950 # KTRSEC FLAG TO CONTROL OPENING DASECDLI AND DATRANLI 

12960 * KVT5U FlAG TO CONTROL OPENING SULIJKNM 

12970 * LCU number OF EFFECTIVE CONDUCTORS ASSOCIATED WITH NEW YIN 


1-97 



NTWKERS4 

12980 ♦ 
12990 * 
13000 # 
13010 » 
13020 * 
13030 * 
13040 * 
13050 * 
13060 * 
13070 • 
13080 « 
13090 » 
13100 * 
13110 » 
13120 * 
13130 * 
13140 * 
13150 4 
13160 * 
13170 4 
13180 4 
13190 4 
13200 4 
13210 4 

13220 4 

13230 * 
13240 4 
13250 4 

13260 4 

13270 4 
13280 4 
13290 4 
13300 4 
13310 4 
13320 4 
13330 4 
13340 4 
13350 4 
13360 4 
13370 4 
13380 4 
13390 4 
13400 4 
13410 4 
13420 4 
13430 4 
13440 4 
13450 4 
13460 4 
13470 4 
13480 * 
13490 4 
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LOAINsiO 

LDP7LS20 

L0PU225 

LObECsil 

LDTRAS13 

length 

LEVfiD 

LEVPAR 

L0UT=16 

LPRn*12 

LRBTRS14 

LSUBN 

LTOP 

LTKANsjs 

LTYO 

ltyp 

LVTSU 

MAXNDS512 

MDPRL 

MDPU 

MNTl*'?; 

MPH I M 

MPR5 

MRBTR 

MRECS760 

MTRAN 

NCU 

MD .«s4 

MDPU4. 

MOSEC 

NECO 

NEUF 

NEUFE 

MEUFO 

NIDEN 

KLCSAs 1^4 

NOMAX 

NPAR 

MPRISZ=38 

NRBTRS78 

NROATsi 

MRECO 

NSECM 

NSEOVsi 

NTRNSZ 

NTRPH 

NVT5Z 

SULIJKNM 

TRANF 

VTOPH 

YIN 

Y2K 


FRN for CNksKiMlJ 

FRN F^R NTLIJK’IM 

FRn FOR DPULIJKN PER Ur'IT LENGTH DATABASE FILE 
FRM for OASECDLI SECOi-DAPY load DATABASE FILE 
FRN for TRANF USED IN TRANAC 
CODED length 

LEVEL OF SECTIOMalMLCSA (NSECT»5l 
LEVEL OF PARENT 
FRN FOR WK'ROUIj 

frn for TA* -ylik 

FRH FOR : '' '^TPLI RATIO BANK TRANSFORMER DATABASE FILE 

frn For ascii subnetwork input PARAMTER file SUBNTLMN 

LTYP associated WITH PREVIOUS READ OF DPULlJKN 

frn for DATRANLI DISTRIBUTION TRANSFORMER DATABASE FILE 

DUMMY TO BE DELTED FROM FINAL OPERATIONAL FORM 

LINE TYPE CODE 

frn FOR SULIJKNM 

DIMENSION LIMIT TO MAXIMUM NUMBER OF SECTIONS 

filename variable for NTLIJKNM 
character variable fop filename dpulijkn 
filename variable for dnwkimij 
character variable for filename daprylik 
filename variable for wkerouij 
character variable for filename darbtrli 

RECORD size FqR NTLIJKNM 
character variable for filename DATRANLI 
USED for primary LOAD DIMENSION CHECK 
DIMENSION OF ADMITTANCE ARRAYS 
RECORD SIZE FOR DPULIJKN 

character variable for filename dasecoli 

NUMBER OF EFFECTIVE CONDUCTORS ASSOCIATED WITH OLD YIN 
NUMBER OF FEEDER NEUTRAL (0 OR 1)» INOEPENDANT OF lASN 
NEUF MODIFIED 3Y IASN 

OLD VALUE OF NEUF, USED FOR CONTINUTIY CHECK 
network IDENTIFICATION NUMBER 

NUMBER OF records USED TO CONTAIN INLCSA ARRAY 
TOTAL number OF SECTIONS 

PARENT SECTI0NsINLCSA(NSECT,2) ‘ 

RECORD SIZE FOR DAPRYLIJ 
RECORD SIZE FOR DARBTRLI 

NUMBER OF RECORDS USED TO CONTAIN A SINGLE SECTION DATA 
NUMBER OF EFFECTIVE CONDUCTORS READ IN FROM DPULIJKN 

file dasecdli Control parameter 

NUMBER OF RECORDS USED TO CONTAIN INSEOV VICTOR 
RECORD SIZE FOR DATRANLI 

PHASE connection CODE FOR DISTRIBUTION TRANSFORMER 
RECORD SIZE FOR SULIJKNM 

random BINARY FILE CONTAINING COMPUTED SUBNET PARAMETERS 

filename FOR SPECIAL TRANSFORMER DATAFILE I0PCs3 

voltage transfer ratio MATRIX 

admittance INTO THE SECTION 

TOTAL SECTION TeRMINATIN ADMITTANCE 
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13500 * 
13510 * 
13520 * 
13530 * 
13540 * 
13550 * 
13560 * 
13570 * 
13580 * 
13590 * 
13600 * 
13610 ♦ 
13620 * 
13630 * 
13640 * 
13650 * 
13660 » 
13670 *. 
13680 * 
13690 * 
13700 » 
13710 * 
13720 * 
13730 * 
13740 * 
13/5U * 
13760 * 
13770 * 
13780 * 
13790 * 
13800 * 
13810 * 
13820 * 
13830 ♦ 
13840 * 
13850 * 
13860 * 
13870 * 
13880 » 
13890 * 
13900 * 
13910 * 
13920 * 
13930 * 
13940 * 
13950 ♦ 
13960 * 
13970 * 
13980 * 
13990 
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YLOAD TOTAL EXTERNAL (lE NOT INCLUDING DOWNSTREAM YIMILOAD 


the following are stop code diagnostics 


0250 

0260 

0274 

0275 

0276 

0277 

0279 

0280 
0281 
0282 
0300 

0303 

0304 

0310 

0311 

0352 

0353 

0354 

0355 
0355 

0355 

0356 

0365 

0366 

0367 

0368 

0369 
0369 
0374 

0374 

0375 
0375 

0375 

0376 
0376 

3371 

3372 

3373 

3374 

3710 

3711 
3730 

end 


izngr must not oe zero for IASN.lt. 3 

LTYP.GE.IOOO NOT YET DEFINED 

for IASN*1»2 and NEUFsU EXPECT NEC0*2 FOR LTYPsi,2.3 
EXPECT NEC0S2 FOR LTYPs4,5*6»7«8«9. IE DELTA 
FOR IASN=3*4 and NEUFsl, EXPECT NECOsl FOR LTYP *1,2*3 
FOR IASMS3.4, AMD NEUFsQ EXPECT NEC0s2 FOR LTYPs4*5*6*748*9 
FOR IASNSU2 EXPECT NEC0*2 FOR ANY LTYP*4,5 *6*7,8 .9 
DO NOT EXPECT NEC0.GT.2 FOR ANY LTYPs4,5 *6*7,8 ,9 
EXPECTED ALL NONZERO ELEMENTS IN Y2K FOR LTYP*4*5 *6 *7,8 *9 
NECO FROM THE OPU FILE IS GREATER THAN 4 
EXPECTED LTYPs12*13*23 

FOR LTYP* 13 *23 EXPECT NELO TO CORRESPOND TO THREE PHASE 
FOR LTYPS12 NECO CANNOT CORRESPOND TO SINGLE PHASE 
FOR LTYP*24*25*26 EXPECT NEC0=NEUF*-2 
FOR LTYPs27,28*29.30,31,32 EXPECT NEC 0 *NEUF >1 
EXPECTED RECORD SIZE NOT EQUAL TO THAT IN OPUlJKLM 
LTYP NOT CONTAINED IN DPUIJKLM 
LTYP not DEFINED IN DPUIJKLM 

EXPECT PRESENCE OR ABSENCE OF NEUTRAL TO REMAIN CONSTANT 

1 EXPECT ACROSS RATIO BANKS (THIS TEST NOT NECESSARY 

2 IF IASNS3*'* 

EXPECT IC0Ns4,5,6*7*8*9 FOR OPEN DELTA LOAD 
FOR OPEN delta EXPECT NEUFsi AND NUMF*2*3 
FOR OPEN delta AND IC0N=5*6*8*9 EXPECT NUMF=3 
FOR OPEN delta AND ICONs^.T EXPECT NUMF=2*3 
PRIMARY LOAD SPECIFICATION IN DAPRYIJK INCONSISTANT 
INCONSISTANCY BETWEEN LCU AND NCU WITH NCU DETERMINED 
1 IN PRIMARY LOAD LOGIC AT 369-1* 3666* 365 

INCONSISTANCY BETWEEN LCU AND NCU WITH NCU DETERMINED 
1 IN DT-TTY LOGIC. AT STATEMENT 3740*2 AND 373-1 
FOR 100.LE.LTYP.lt. 1000 LCU DETERMINED FROM DPUIJKLM 

1 SHOULD EQUAL NECO DETERMINED FROM DOWNSTREAM 

2 CONDITIONS 

IFlAG FROM DAPRYIJK NOT ZERO; LOGIC/SUBROUTINE 
1 NOT INSTALLED YET FOR PHYSICAL PARAMETERS 

IN DT LOGIC WITH TPHSEs2 EXPECT NEUFsl AND NUMF*2,3 

IN DT logic with IPHSE*3 EXPECT NEUFsl AND NUMFsS 

IN DT logic with IPH5Es 4*7 EXPECT NUMFs2*3 
IN DT logic with IPHSEs5»6*8*9 EXPECT NUMF=3 
illegal IPHSE; expect IPHSEs1,2*3.4,5*6*7,8*9 
IPHSE EXPECTS DT TO BE CONNECTED PHASE TO NEUTRAL 
ITTY improperly DEFINED 
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SFPSYU32 


r.4/r7/'-5i 2:3*9 pm 






■ It 


r,,-a,'= ascii p^i m.-y lga*' jatafiles >vi:h filemames 

0020 * ",f TVr';. vFA'Pyij?; 

0030 * Ij=IF'-c. = 2 :.I'ilT FP r.‘ '‘i;£: ,CY CiDE 

OOAO # -. = IT;- Psi GIGIT tF'. JEPaTL.'E CQi-E 

0050 * TPc bT’-'wCTuPL OF THIS FILE 15 EX-LAI'. ED BELOrt 

OObO * 

0070 * this COr.S’""' -CT^ the S 1*1 ARY FILE DAPPYIJ< WITH 

0000 * A -It-.L'-P r-ECCro FCLlCi.'EL 3Y I'ATA F’ECOPOS 

0000 * 

OlOO * ,^FTEA CO.-iFuETlHG OAr-RYlJX COGSTFl.CT I Of i « DAPMYlJK IS REREAD 

Olio * ANO T‘ir i,\ta l'SFO to REV.kITF AFP> yu^, tH£ PURPOSE OF THIS 

0120 * IS TO CLFA-.UF FCF''’AT A^O PROVIDE A CHECK THAT DAPRYIJK HAS 

0130 » “EE; CuvlSTEUCTEr- PRGPERlY. THE *-SCII FILE AFPRYIJK CAN B£ 

01^0 » POT TEO a.-.l ' OOIFIE'-' A.-’C- •JSEO AS A,v K.P'JT O.'l SUESEOUEHT 

0150 ♦ REVISrii.S 

0160 ♦ 

OlYO ♦ AN CPTiCi: IS AlSC PROVIDED F'-if EITHER LISTING* lOPTsl QR 

0130 ♦ CONVtPTr.G DAPOYIJK TO AN ASCII "^ILE OUTFILNM, I0P' = 2 'WITHOUT 

0190 * CHA-.'C- I.'.G ArPSYIJi:* I; OPOE*^ TT C'ECK CONTENTS 

0200 * OF DApr.Yijs., 


0210 * 

0220 * NO aTTE.'PT IS “ACE TO PRuviOE SELECTIVE RECORD MAIMTENAflCE 

0230 ♦ OR TO DETECT PuPLlCATf-I E'iTRIcS 

02A0 * 

0250 * THE P.A iCCN' BINAFY PILE DAPPYIjr; DATA RECORD HAS THE FOLLOWING 

0260 * 5E0'JE':C£ CF DATA 

0270 * IPRIsPhI ..APV ujfiO I OL'-'T I F I CAT Uj'I 'lUf-iSEP 

0260 * ;FCO = />CPsI: G Dr E .SlOP 

02'>0 * IRLVL specifies' AnaL''TIC (IFLAGsn) OR PHYSICAL (IFLAGsl) 


0300 * YAN'i i'ATRl.T AO- ITA'.CF I'ECP^fFCN F0'> IFLAG=0 OR 

0310 * i.ECO* ( :ECL + I ) /2 PHYSICAL FLE-’ENTS 

0320 ♦ 

0330 * THE ASCII FlLF AFFPYIJK, HAS T'Hf FCLLOHI iG MUi.TI PECOPO 


03A0 

* 

Fcr<,-i 

AT TO 

specify one 

0350 

♦r 

FOR 

I Fl.mG = 

o: 


0360 

♦ 





0370 

» 

LI .E 




0330 

* 

Ll.E 

IRPT 

,lECf) 

iflac 

0390 

* 

LI ;£ 




0400 

4 

Ll.E 

YOU 



0410 

4 

ll.e 

Ylll 



0420 

4 

LI..E 




0430 

4 

LINE 

YK12 

YR22 


0440 

4 

LI.'.E 

YI 12 

YI22 


0450 

4 

lINE 




0460 

4 

LI'!E 

YF13 

YR.23 

YR33 

0470 

4 

LL.E 

YI 13 

YI23 

YI33 

0460 

4 

lI*!E 




04«0 

4 

ll.e 

Yf 14 

YAZ4 

YP34 


SET OF DATA N'QTE ILLUSTRATED FOR 

PsPEAL PART 
J=li-ACINAPY PART 


Y"4A 


necosa 


MOO 
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0500 » lI .f; yIU Y'n<. 

0510 ♦ 

052C * l'^uA.- = i al- lu-- iat is -SpO '-(ITM TME ENTPIES 

0530 ♦ I ' TL.r' -S ' rVblC^w £L£’ TS 

05‘*0 IC FO^v^TC.') 

0550 II fop’-'k i5» iz*i 1 » ’ ; ' ) 

0560 i; FOF’^'AK niTFIU' »I2. • ; * ) 

0570 lY F0PV*^T (I4*2X» ’ IFP.E = ' » I 2 < 2X * • I T Ps • . 1 1 ,2.<» 'lRECs* . 

05«0 S r2,2X»'IPP.*^a* »I3,2X.‘.'i.//'TEs' ♦ AP ♦ 2X ♦ * T I ^E* • » Fx . 2 ) 

05 70 15 FO?5N’AT(MFr.'raS12»' I T-'?= • , 1 1 / * I F OF TYPE CRM 

0600 is FOPV'AT ( !<« « lP4Eitt.7) 

0610 1.’ FO-;yAT( I •'*♦315*3X^3 15) 

0620 CO . Plea Y(t,*») ,2EP.0A<<»,4) ,2,2EKC 

0630 OIME' SIG.’ ICBUF(5) .YR (4) »YI (5) 

0640 CHARACTE' I'.FlLC*9tCUFlLE»«>*SF?»6»;iDATE*8 

0650 data SFn/'5FPHYL*/*2EorA/l6*(0,.0.)/.2ERO/{0.«0.)/ 

0660 data ICii'jF/2»P»9«1.3/^LU0U/l2/»LRFC/38/*OUT/0/ 

0670 call i.AST^K 

06»0 PPir;T,»THlS PPOGPAr’ PE*DS AFPPYIJK AfO CONSTRUCTS DAPRYIJK* 

0690 1 00 CO;;TI;;UE 

0700 P'?I‘1T,* TYPE C° FOP f Of'^ Al FILE EUILOIMS OPTION I0PT = 0* 

0710 PKIfsTf’Of' TYPE I PEFO&E CP FOR lOPTai TO LIST DAPRYIJK' 

0720 PRINT, 'CF TYPE 2 OfFOR, CR TO CCHVERT DAPRYIJK TO* 

0730 PRlNT.'rtSCII FIlE CUTF I L.IM • 

0740 READ,ICPT 

0750 LUIMsOo 

0760 IF( ICPT.LE,1)GOTOIC5 

0770 LUINsll 

0780 <OjTs<OUT>l 

0790 ENCODE ( I r;F IlE » 1 2 ) X CUT* lOO 

0800 call GPEVF(LJlN,iriFILE) 

0810 * note TFAT NOa INFILE IS ASCII OUTFIL'IM 

0820 105 CONTINUE 

0830 PRINT, ‘TYPE TWO DIGIT FRpniJE.NCY CODE, ONE DIGIT TEi^’PERATURE CODE* 

0840 f<EAD,IFRE,ITMP 

0850 '5RINT 15,IFRE«ITrP 

0860 READ, I 

0870 IE( I. JE.n)C:CTOlCO 

0880 ENCOOE(OUFILE,11) • LAPRY ' , 1000* I EPE , I TMP 

0890 PRINT, OUEIlE 

0900 110 continue 

0910 ♦ OPEN (C.NEATE if f.ECESSMRY) OAPF.YIJK 

0920 call nFEr.F(LUCu,DUFILE,l5TAT,3,l,ICBUE) 

0930 IF(I5TAT.eC.0)G0TDlll 

0940 PRINT, 'UNAOlE to OPEN/CPEATE •,CUFILE,» I STATs » , I STAT 

0950 STOP 

0960 111 call PA.NSI2(LU0U,LFEC,1) 

0970 IF ( ropT.NE.O) G0T0402 

0980 LJINsll 

0990 EMCODEd-iFlLEfll) ‘iEPPY* ♦ 1 000^ I ERE , I TMP 

1000 PRINT, INF I lE 

1010 * OPEN ?UT ro NOT CREATE AFPFYljK 
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SFPRYLS2 


P'VGE 3 


1020 
1030 
lO'^O 
1050 
1060 
1070 * 
lORO 112 
1090 » 
lion 

1110 114 

1120 * 

1 130 
il<»0 * 

1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
12^0 
1250 * 

1260 

1270 

1280 115 

1290 120 

1300 * 

1310 

1320 

1330 220 

13^0 
1350 
1360 

1370 23 ) 

1380 240 

1390 * 

UOO » 

1410 

1420 

1430 400 

1440 * 

1450 * 

1460 
1470 
1480 * 

1490 * 

1500 

1510 

1520 402 

1530 


calu •,;Pr.F »r'FiLt.iST4r»3*n»i) 

IF ( I jTAT.L^.o) r,OTOl 12 
’■i r.T. • I £TMs* , I ST ',T 

iF(i jTiT.i, • or exist* 

j 'TwtiOi 

= r.i \ SP aCL- .ivt> Flf^ST 'iE4JEr ' ECOPD !;•. AFPPYljK 
PEADlLv-r »lii) 

*.c.. rlE'jIf' . ;FF?''IJK. 'JFITE r-'iPPYIJK 
IP6'»'s ) 

CONTI^.vE 

ffap -.lll .-I'.f Fiirn -eccpd 

HEAD ( Lv.' I ' . « 1 0 . Ei .DS40C > 

PtAt •iEC.) jA-*m RFCOKPS 

kEAD(lOI .*lQ»£.';Ds99b)LI iE.IPRI ,NtCC'» IFLAG»1 1 »I2» 13 

DO 120 Isl»..£CO 

REAC(LLir.,lO) 

REA0(LUI.’.» lO»E?.0»99b)LriF, (YR ( J) Osi, I ) 

RtADlLUl- »10»E.' Ds9Pfi)LloE» (YI <J) 

CO 120 JsUI 
7aC'"PL> (YIR ( J) »Yl ( J) ) 

Y(I,J)s2 

IF(I,EC.J)G0T0120 
IF ( IFlAG.EO.OIC-OTOI 15 

IF I Flags 1 set upper I '-•T TRIAr.GLE = 0 
Y{J«I)=ZF-’0 
GCTCIZC 
Y(J»I)sZ 
CONTTiUE 

IF .lECcSSARY WRITE E-'PTY RECORDS -«ITH IPPIsq 
IF ( IPRI .EQ.IP^’ ) PPILT, 'OijPLICATE IPPIs* ,IPRI 
IFdPRI.LE.IPR'lGOTCZ-^O 
IF { IPR I ,cG. ( IPR*«*n ) G0T02 30 

IPRVisipt,:.-*! 

^RlTElLUCU* lPR>'i*l)0»n»0»ZE'»OA 

GOTD22C 

IPR;-'sirp» ♦! 

COf!Tl;:LE 

>10;/ V’’ITE -U-IR'-AL PECCRD. >.OTF. ThA-*- FOH IFLAGsQ* UPPER-RIGHT 
’■R I angle is ZF.PO 

rtMITE (LUOU* I»R I *l ) 1 PPI , iFC.'J« IFLAG» r l.I2»I3«<(Y(I,J) « 1 = 1 ,MECO) » J=1 «N 
G0TCU14 

contmue 

AT THIS POI'.T end OF AFPPYIJk HAS oEEf! REACHED NORMALLY 
•JRITE hEAUE'^ on OAPPvijx 
IF ( lOPT.EU.O) CALL CATIr-( iDATE • T T'lc; , 

‘■‘■«ITE(LUCU* 1) IFRE»ITMI>,L7FC»IPRN W-rATEdl -IE 
('0'.. HAVE FINISHED CONSTRUCTION OF DAPPYIJK 
NEXT PEwPITE AFPPYIJK r^Y READING BACK DATA FROM DAPRYIJK 
REi^ I ,0 (LU I N) 

ENOFIlE (LUri) 

READ(LL0U* 1) lFPE*ITf"P»LREC.IP«r»r;DATE.TIM£ 

WR I TP ( LM I . 14 ) 1 000 d FPe * I Ooo ♦ I TMP *LRrC ♦ I PRM « f^DATE » T I ME 
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155C 

1560 

1570 I'i-r . ■ • ) ; "'M . (''(1 .J) ,Ial,MECG) .jaUNECO) 

I5b0 

1590 IP ( li- < I .^c.r ) 5 

1600 .•.KIT£(l..,I; ,i7)Ll .£ 

I6l0 Ll'.cSLl .I>10 

1620 .-0ITt(t'jI ,17JuI .fc,IPM .•'ECn.I?LA‘G,Il,I2,I3 

1630 Ll ds|_I t*iC 

16«0 DO ‘♦i.n Isl,;.C(.0 

1650 DJ MO j=U:,ECO 

1660 2sY(T,J) 

1670 Yr« ( J) sP.tAHZ) 

1680 410 YI ( J) SAP nCi(Z) 

1690 WRlTE('..Ulf.,15)LlNE 

1700 Lir:E = Li 

1710 .jPI'ffe (L'iIN»l6)Ll.\£. (YR (J) ,J2 1 «r.ECO) 

1720 LrifsLl'.t^lO 

1730 wPlTtia (YI (j) ,jsU.- ECO) 

1740 LI EsLl-iE^lO 

175G 42''» CO'iTr;oE 

1760 IF{ l^AI.LT.lPP-.)0nT04O5 

1770 IF(l0PT.Ei3,0)Pf’I <T,OUFILF.* RE'.FITTE'^' 

1780 IF( IuPT.GT,i)PS I (T.OUFIlEM C0:;VEHTPC TO ASCII AND PLACED** 

1790 (, • r, ’.IiFUE 

1800 50C PKIM**TYPE i F07 .iEW CASE* 

1810 PEAD*I 

1820 I- (I.ED.g) STOP 

1830 call OETaChclUI.i.ISTAT,) 

1840 call '•ETACA(L0GU*ISTA'',) 

1850 GOTCICO 

I860 99.^ PPr.T, ‘u.iEXPECTEO £0F ? 'iCOU 1TF=F0 • 

1870 STOP 

1880 E'lO 
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0010 * *h!;- 5 prtCf-r-*,; -I =;;<r'.-'CTS n^OM A SPECiriEO lETWORK FILE CONTAINED 

0020 * r 7-’E l':FiL£» ^ SU> ■ FT'.OPK. !C TmAT PONTION inCLUDIflO AND 

0030 » ■fY''-? SPECIFIlt 5rCTIC I ^'■•'KH OCCURS SOMEWHERE WITHIN THE 

0040 * C,IV£ . ETV.OPk. this 0”Cr,i<A 1 ALLOWS OENERmTIOM OF ANY .UMBER 

0050 * OF SUL'.ETV;ORKS. 

0060 ♦ ■^Mis pn'.'uRAM i\».OK<’oc ates an approach sugcjEsted by r wooding 

0070 * LOTF That ASSICiLtO SFCTin-l MLi^-PEPS MUST 5E EACH LESS THAN THE 

0080 * ul !£• SICl'i ASSIG.*if E'-T Oc THE itTWORK ARRAY lA ‘WHICH IS PRESENTLY 

0090 * ]ALs20G0 

OlOO 10 FORMAT (V) 

OUO U F0R»^AT (I‘n5I5 ♦IXtTIS) 

0120 12 FOR'-'-aT ( ‘PRINT nA>'£ CF ‘♦A6»* FOLLO' EC BY A »•) 

0130 13 format «• IF 0< type CR t TYPE I TC CHANGE* TYPE -I TO ESCAPE*) 

0140 U FOPvaT ( 'LEW r ETwORK ID .;ur-'e£R = ' ♦ 1 2 ) 

0150 15 FOPMU(»ME,. ROOT SECTION 6s* ♦IS) 

0160 CHARACTER I,,FIlE»9.CUFILc*9 

0170 DI^E-SUr. IA(2000«U) *IS(200) 

0180 data INFlLE/*DNhi<lL98?»/,0UFlLE/'0 ,WKI'IQ9»*/ 

0190 DATA IAL/2O00/*ISL/2OO/*I.lET/99/fIROOT/l0O/ 

0200 data LUlf./ll/ tLUOU/U/ 

0210 call r.ASTRK 

0220 I3n CONTINUE 

0230 PRIM,' I;.FIl£=*«INFILE 

0240 PRIM 13 

0250 READ, I 

0260 IF(I)Q99,150,135 

0270 13S PRT.T 12,'I‘iFlLE* 

0280 READ,PFIl£ 

0290 GUT0'.3C 

0300 15n COM ( lUE 

0310 call CCE'F{lo1M,TLFIlF,ISTAT, 1,0,1) 

0320 if(I5t; T«to.o)r,croiso 

0330 IF<lSTM.E0.5)PP!'M,r-FlL£,* OCES r.OT EXIST* 

0340 IF(ISTAT.f.t.5)PWir.T,r:FlLe«* STATI JSs * , 1 5TAT 

0350 CUT013C 

0360 • FIRST RESET FIRST COLUMN OF lAL TO -I AS A FL-AG 

0370 160 DU U5 1*1 ,IAl 

0380 165 IA(I,I):^-l 

0390 * NO.. READ I ,'i NETWORK ARRAY AMD PLACF SECTION IM INSECT ROW 

0400 READ(Lt)I.i,lO) IDUM,I 

0410 17r> READCL'JI 'I* 10 »F.,:Ds 18C’> lOU'UlSECT, (1/ «ISECT,J) ,Jsl,U) 

0420 GOTC170 

0430 180 COriTiriUE 

0440 PRIM, •CUFIlE = * »OUFIlE 

0450 PRINT 13 

0460 READ ♦ I 

0470 1F( I ) 130,220,210 

0480 210 PRIM 12,*0UFIlE* 

0490 RtAD.OUFILF, 
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0500 



Q 'J T 0 L M 0 


05t0 


22m 

CO'ITI JE 


0520 



calu T(l jCij,ouFiLc< i^T\r.3«o»i) 


0530 



IP ( IS'^CT.r 1,5) ''.•T?2.0) 


0540 



call '’'ri:; F (L'jOL.rA'PILEl 


0550 



0073250 


0560 


23r 

IF( l5TAT,r.E.O)r.CTO2A0 


0570 



PWriT.CUFlLE** ALPr>DY EXISTS^ TYPE C9 

IF OK TO DESTROY/REWRITE* 

0580 



T 


0590 



I P n ) 1, ft 0 » 2 5 K « 1 8 0 


0600 



?-<IOT,OUFiLE»' ISTaT=‘ , ISTaT 


0610 



GOTO 1 AO 


0620 



AT T-tlS POT'lT OUTPUT FILE OPEf. 


0630 


25 j 

PBi'lT lA«l!.£T 


0640 



PAINT 13 


0650 



PEAt)^ I 


0660 



IF (I ) ld0»270«260 


0670 


26'i 

PAINT lA 


0660 



REA3, I*;e:t 


0690 



GOTC25C 


0700 


270 

COi'TliLE 


0710 



PAINT 15»IR00T 


0720 



PAINT 13 


0730 



READ, I 


0740 



IF(I)?50,290,280 


0750 


280 

PAINT 15 


0760 



READ, IPCOT 


0770 



G0TC27C 


0730 


290 

Ll<''E=l0')0 


0790 



«aite (Luou, 1 uli;'!E,i'iet 


0800 



Llr,E=lG01 


0810 



u5TAC<=0 


0820 



liFCTsIRCCT 


0830 

» 


'=EGr-i.‘iIi.ir, PROCESSING LOOP 


0840 

* 


INDEX FEY 


0850 

* 


i IPAR 


0860 

» 


2 IlSi'. 


0870 

» 


3 IRSiN 


0880 

» 


4* ltvp 


0890 



5 ILCD 


0900 

» 


6 lOHN 


0910 

* 


7 ITTY 


0920 

tt 


6 IPhS 


0930 

» 


9 NStP 


0940 

» 


10 IPRc 


0950 

ft 


11 INGD 


0960 

ft 


RE E'-'cER SECTION DATA STORED BY ISFCT 

ROW 

0970 

ft 


YHc following is a pfugraoming e°ror 

CUECK, REMOVE AFTER DEBUG 

0980 


295 

IF ( U ( ISECT,l) .LT.O) STOP C295 


0990 



IE( ISECT..ME.IPCOT)GOT0320 


1000 

ft 


SAVE PARENT section r'UFlEFA FOR LATER 

RESTORATION 

1010 



lP'‘RsIA(IROOT,l) 
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SUBNETS I PAfiE 3 

i020 1 A( IRCOT.n S<J 

1030 32>'! ITh (LvA'L » 1 n ^1 jE. ISrCT, ( U( I iECT.J) » J*l * I U 

io*»o Li t *1 

1050 ILS =1'. (IbECT.?) 

1060 IKS- SI, ( I ^>ECT»5I 

1070 • ChECn. FIKST TO SEE IF A TcK'-I-l-S SECTION A.4C IF Y£S POP STACK 

I OHO IF « Ii_SN,tU,0,'4.'i^* iKSM.CO.ni 'jOTCSOO 

1090 * ‘.EaT C'■'tC^ Tu SEE IF MC(A“CHr.O IS I'lVOLVEO 

1100 IF ( iLS.' .f e,0*A,\0,IKS I...E.0 )uOTC<m'0 

1110 • AT THIS OCINT .*''0 EKa:-:Ch1-‘0 I .VOLYE'A 

1120 ISeCI=wAAO(lLSN«IRSM 

1130 30T^^^5 

1140 4U'1 continue 

1150 • AT this COIN'*’ iJRA'CHINy IS INVOLVED, ARBITRARILY PLACE IRSN IN 

1160 * STAC< ECTOR IS 

1170 IF (,\STAEF.lT.ISL)GOT0420 

1180 PRINT, 'STACK EXHAUSTEO. INCREASE IS Or’ENSION* 

1190 

1200 420 NSTACK=fl5TACK*l 

1210 IS(NSTACK) sIRSr. 

1220 ISECTsIuS.N 

1230 G0T02«J5 

1240 500 CO,.TI\UE 

1250 » AT THIS POINT A T£9MINu5 SECTION AAS REACHED, LOOK AT 

1260 * STAC^ VECTOR FOR A ,*iEw SECTION MOT YET PROCESSED, IF 

1270 * .oTACf » THE NUHtitR OF AS Y£T UNPrOCESSEO SECTIONS* IS 

1230 • ZERO THEN wE ARE FIMSHeo, IF MOT ZERO, POP STACK 

1290 IF(SST#CK,EQ,0)G0T0‘500 

1300 ISECTsIS (NSTACK) 

1310 NSTACKsNSTACK-l 

1320 G0T0295 

1330 90'^ CONTINUE 

1340 * AT THIS POINT HAVE EXHAUSTED STACK A^:D FINISHED WITH 

1350 * UJFILE. 

1360 call DETACm(LUCU* ISTAT,) 

1370 PKIM,'.,kOTe '.OUFIlE*' NITH NETWORK NUH0ERs • ♦ INET 

1380 PRINT, 'Ar.D ROOT SECT I>Ns • » I ROOT 

1390 * NOW REPLACE PARENT <UDE I.'l I A ARNAY 

1400 IA(IRonT«nslPAR 

UlO PR I NT, 'TYPE 1 TO GE'ERATF A N£»* 5UFHFTWURK , TYPE CR TO ESCAPE* 

1420 READ, I 

1430 IF(1) 130*130*180 

1440 999 CALL DETACH (LU I N . I STA^ , ) 

1450 STOP 0«99 

1460 END 


1-106 


original page ® 

OF POOR QUALITY 






TRAPAC 


v)4/09/fll 1:31 PH 




010 * 


Tills PRiif-A . Cl'PUTlS TH^ THREr UHASr AO*^ I TTAilCE ASSOCIATED 

020 * 


,viTJ A FACTr.i^ Cr.P\'ECTIO.: CAPACITOR 3AM< TRAPPED IN THE 

030 * 


C:r ‘ O’-. -ETU-ii; a..' riOnCtOP (SERIES ° A.^D L) SHUNTED 3Y A 

O 4 O * 


CO’iDmCTAi CE 0S« 

050 

10 

F‘0«'-'AT (V) 

060 

11 

FOH"AT('TYPE CR IF OK • ) 

070 

12 

FuHVAT ( »C s' «1PE9,3) 

080 

13 

FOW.*'AT( *P.OS»L=* «1P3C12,3) 

090 

iH 

FORi'iAT ( 'Fs» »Fb.2> 

100 

15 

FOH''AT (72 (•*•)) 

no 

16 

FORMAT (’TYPE CR TO CC'JT I NJE * » 

120 

17 

FORPAT( • m.Y12s* »1P2E12.3»5X.2E12.3) 

130 


CO*:PLtX YC»ZT.Yll ,Y12,ZC.‘.E.oei’» 

140 


KtAL L 

150 


OATm GS/»i.*Cl / »R/9» / ♦L/«00*» / / «R/5010* / *20UE/ (1**0»)/ 

160 

100 

P H I ’1 T 1 (. 

170 


p£AO « I 

180 


IF(I,,.E,0)5T0P 0100 

190 

1 10 

rS I ■‘!T 1 3 «r «GS »L 

200 


r-RIf.T 11 

2 l 0 


p.EAcn 

220 


IF(I) in0,120»115 

230 

115 

PRIfiT 13 

240 


PEAO«R,CS.L 

250 


GO TO lie, 

260 

120 

PRINT 12 , C 

270 


PRI';T u 

280 


READ, I 

290 


IF(I) lie. 130,125 

300 

125 

PRINT 12 

310 


R E A 0 , C 

320 


GOTO 120 

330 

130 

PRIiNT 14 

340 


RF.AO^F 

350 


IF(F,LE.0.)G0T0120 

360 


TPIF=6,2a3l851*F 

370 


ZTsCMPlX(P,TPIF*L) / (ZONE>r,S»CMPLX(R«TPIF*L) > 

380 


YC = C'!PLX (0. ,TPIF*C) 

390 


De'l=2CilE*3.*YC*ZT 

400 


YllsYC*(Z0r.E^2.#YC*ZT) /DF;, 

410 


Yl2s-YC»YC*ZT/0Eri 

420 


PRI,NT,*2T=* ,Z7 

430 


PRINT, *YC=’ »YC 

440 


PRINT, »CEi*=' *CEN 

450 


PRIfT 15 

460 


PRINT 14, F 

470 


PRINT 12, C 

480 


PRINT 13,R»GS.L 

49 O 


PRINT 17,Y11,Y12 
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50Q pril'iT 15 

510 Pltl-.T 16 

520 rE“0,I 

530 1F( I ,i- E.O) STOP r,i30 

5A0 GOT0130 

550 EmO 
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•«***•«**»•*•»*••****«*«»»**«*«*'»•*••«**••**«****«•*««»*•«•*»******••*** 


1000 * THIS PROGRAM CONVERTS THE CONCENTRIC NEUTRALS OF U.G. 

1010 * power cables into electrically equivalent single neutral 

1020 # CONDUCTOR ANALOGOUS TO THE SITUATION FOUND IN OPEN WIRE 

1030 # OVERHEAD CONDUCTORS .THIS PROGRAM USES IMPEDANCE AND" 

1040 * ADMITTANCE DATA IN UNIT OF OHMS/METER AND MHOS/METER 

1050 * calculated FOR BURIED CABLE BY USE OF THE BPA EMTP 

1060 * cable CONSTANTS OPTION. 

1070 * IN CALCULATION PERFORMED BY THE PROGRAM THE ELECTRICAL 

1080 • EQUIVALENT NEUTRAL CONDUCTOR IS NOT ASSUMED TO BE AT 

1090 * GROUND POTENTIAL THUS RETAINING THE EVUIVALENT NEUTRAL 

1100 « AS AN * explicit* CONDUCTOR* 

1110 • THIS PROGRAM IS EQUIPPED TO SUPPLY THE 

1120 # PROPER 2 AND Y MATRICES FOR EITHER 1.2 OR 3 PHASE CASE BY 

1130 * the proper extraction and manipulation of the elements of 

1140 » the 6 by 6 IMPEDANCE AND ADMITTANCE MATRICES SUPPLIED BY 

1150 * THE B*P*A* PROGRAM 

1160 « WRITTEN BY RICHARD WOODING 

1170 * 4/7/81 

1180 * EXTENSIVE MODIFICATIONS WERE COMPLETED ON THE ORIGINAL 

1190 * NEUREDSl PROGRAM DESCRIBED ABOVE.THIS PROGRAM NOW 

1200 * HAS the capability TO GENERATE 2 & Y DATA FOR 

1210 » underground cables internally AND THEN PERFORM THE 

1220 * neutral reduction FUNCTION USING ALGABRAIC METHODS* 

1230 * THE PROCESSING OPTIONS NOW ARE! 

1240 # 

1250 * 1) USE OF PROPERLY FORMATTED E.M.T*P* 2Y DATA. 

1260 * 

1270 * 2) manual entry OF Z 6 Y DATA SUPPLIED BY THE USER, 

1280 * 

1290 * 3) USE OF AN ASCII DATA FILE SUPPLYING *LTYP* CASE 

1300 * information and PHYSICAL PARAMETERS FOR THE CABLE 

1310 * NECESSARY TO CALCULATE 2Y DATA* 

1320 * 

1330 * 

1340 10 FORMAT (V) 

1350 20 FORMAT(I4.10I5.F11,3) 

1360 30 FORMATC I4.1X«1PE15*8«1X.EL5*8) 

1370 40 format (14) 

1380 NFN«9999 

1390 DATA LUIN/U/.LUOU/12/.LUDF/13/ 

1400 CHARACTER*9 row.imped.admit 

1410 character*9 infile. OUTFILE.CDFIL 

1420 COMPLEX CC.CM1«CM2,CM3.CM4«ZM0D5.2M0D6 

1430 » DATA2 IS THE IMPEDANCE MATRIX.DATAY IS THE ADMITTANCE MATRIX 

1440 DIMENSION DATA(24.6) .DATA2(6.6) .DATAY(6.6) .2M0D(4) .2M0D6(4> . 

1441 6 DAT22C6.6) .DATY2(6«6) .DAT23(6.6) 

1450 COMPLEX DATA2.0ATAY.2MOD.O1.Q2.O3.DAT22.DATY2.DAT23 

1460 DIMENSION DENT (7) 

1470 PRINT.* FOR USE OF AN EMTP FILE TYPE A CR* 
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U80 

U90 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

I860 

1870 

1880 

1890 

1900 

1910 

1720 

1930 

1940 

1950 

I960 

1970 

1980 

1990 


PRINT* ’FOR USE OF MANUAL ENTRY TYPE A 1* 

PRINT* »F0R USE OF PHYSICAL DATA FILE TYPE A 2* 

REA0*MPM00E 
100 CONTINUE 

IF (MPM00E*E0*2) GOTOl 10 
IF(MPMODE.E0.1)GOT0110 

PRINT* ‘ENTER THE NAME OF THE E.M.T.P, DATA FILE FOLLOWED BYI* 
REAO*INFILE 

call OPENF(LUIN*INFILE*ISTAT*3*0*1) 
IF(ISTAT.NE.O)PRINT*‘ISTATs»*ISTAT 
110 PRINT*‘ENTER the name of the output file followed by a ;• 
READ*OUTFIUE 

CALL OPENF ( LUOU *OUTF ILE • I STAT * 3 *0 *0 ) 

IF(MPM0DE«E0.2)G0T0140 
IF (MPM0DE*E0« 1 ) G0T0120 

READ(LUIN*10«ENDs999)NPR1*NOCASE«NRC*NFOC*NCC*NTPC*NTOT*NPHSET* 
6 NSP*NSN*NEUF 

READ (LUIN« 10) LNUMO* imped 

print* ‘ltype case data* 

print*npri*nocase»nrc*nfqc*ncc*ntpc*ntot*nphset*nsp*nsn*neuf 

PRINT*‘TYPE a cr if ok* 

read*nchk 

IF(NCHK.EQ*0)G0T0130 

120 print**enter modified data case* 

read*npri*nocase*nrc*nfoc*ncc*ntpc*ntot*nphset.nsp,nsn.neuf 
PRINT**MODIFIED CASE DATA* 

PRINT *NPR 1 *NOCASE *NRC *NFOC *NCC *NTPC *NTOT *NPH5ET *NSP *NSN *NEUF 
PRINT**TYPE CR IF O.K** 

READ*NCHK 

IF(NCHK.EQ.O)GOT0130 
IF(NCHK.NE*0)GOT0999 
130 CONTINUE 

IF (MPMODE.EO. 1) G0T0149 
LINXsi 

DO 135 I«l*ll*2 

READ(LU1N*10)LNUM1 *R0W*(DATA(I*J) *J31«6) 

READ(LUIN*10)LNUM2* (0ATA(I«1*J) *Jsl*6) 

READ(LUIN*10)LNUM3*L0NE 
READ(LUIN«10)LNUM4 
135 CONTINUE 

READ(LUIN*10)LNUM0*A0MIT 
DO 137 Is13*23*2 

kEAD(LUIN«10)LNUM1*ROW*(OATA(I*J) *JS1*6) 

READ(LUIN*10)LNUM2* (DATA<I«1*J) *J«1*6) 

READ(LUIN*10)LNUM3*L0NE 
READ(LUIN*10)LNUM4 
137 CONTINUE 

I F ( I STAT .NE *0 ) PR I NT * * I STAT* t * I STAT 
140 PR I NT* ‘ENTER THE NAME OF THE DATA FILE FOLLOWED BY A ? • 
READ*CDFIL 

call OPENF (LUDF *CDF I L * I STAT *3*0*1) 
IF(ISTAT.NE.0)PRINT**ISTAT***ISTAT 
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2000 READ ( LUOF * 10 ) NPR I , NOCASE »NRC *NFQC «NCC .NTPC»MTOT .NPHSET »NSP »NSN »NEUF 

2010 REAO(LUOF*10)LNUM1*MCOOE.RDC.T*F 

2020 PIS3.1A159265 

2030 IF(MC0DE.E0.2)RDCTs{ (234,5*T)/25A,5)»RDC 

2040 IF(MC00E.EQ.I)R0CT*( (228,*T) /248.0)*R0C 

2050 RABSsRDCT*32800. 

2060 FA»SORT(F/RABS) 

2070 MR*<FA*50RT(8.0*PI) ) 

2080 RIls(3.0/(8«0*(HR*«2n } 

2090 RI2»(U0/ (MR#SQRT(2*0) ) ) 

2100 RI3«U0«RI URI2 

2110 RFs(FA*S0RT(PI)*RI3) 

2120 RSE*(RF*ROCT) /304*8 

2130 RSEl*( (3.008E-4*F) /304.8) 

2140 RSEsRSE^RSEl 

2 1 50 READ (LUDF • 10 ) LNUM2 «MCODE *RDC «T «RCOND «RELNG 

2160 IF(MC0DE.E0,2)RDCT1*( (234,5«‘T)/254«5)*RDC 

2170 IF(MCODE.EQ*1)ROCT1*((228.0*T)/248,0)#RDC 

2180 RABS1sRDCT«32800. 

2190 FA1*S0RT(F/RABS1) 

2200 MRls(FAl*S0RT<8.0*PI) ) 

2210 RI12*(3.0/(8.0*(MR1**2) ) ) 

2220 RI223(1«0/(MR1*S0RT<2»0) ) ) 

2230 Rl32s(1.0«RIl2^Rt22) 

2240 RFl»(FAl*S0RT(Pn*RI32) 

2250 RSE2«(RF1«R0CT1) /304.8 

2260 RSE22sRSE2ftRELNG 

2270 RSE22»RSE2/RC0ND 

2280 RSE12 *RSE224‘RSE 

2290 RSE13sRSE 

2300 READ <LUDF * 10) LNUM3 *P *GMRC »R 1 5 tRO tRELPER 1 .RELPER2 *MX *R0 *R I «RON »R I N «C 

2310 call EARTH<XCCG.P»F*6MRC) 

2320 XCCG*XCCG/304.8 

2330 GNl«(RC0NDtt.7788*RlS> 

2340 RC0ND13RCOND-1.0 

2350 ROEsPOW(ROtRCONDl) 

2360 GN23RQE«GN1 

2370 RPG*U0/RC0ND 

2380 GHRC0N>P0M(GN2«RPG) 

2390 CALL EARTH(XNN6»PtF*GMRC0N) 

2400 XNNG<XNNG/304.8 

2410 call EARTH(XCNQ«P*FfRO) 

2420 XCNGsXCNG/304.8 

2430 CALL EARTH(XAB6«P«F«CS) 

2640 XABG«XABG/304.8 

2650 PU3.16159265 

2660 YNx(<i,0E-9)/(36,0*PI) )*(RELPERl)*(PI*2.0) 

2670 YD*AL0G(R0/R1) 

2680 YXX*(YN/YD) 

2690 YXXHC (2.0*PI)*(F) )«YXX 

2500 IF(MX.E0*0)G0T0167 

2510 YNN*( (1.0E-9)/(36.0*Pn )*(RELPER2)«MP!*2,0) 
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2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

-750 

2760 

2770 

^780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 


Y0N*Al0G(R0N/RIN) 

YXXN*<YNN/Y0N) 

YXXlNa ( (2.0*PI )*(F) )*YXXN 
147 CONTINUE 

IF(MX.E0.0)YXX1N«0, 

DENT<1)3RSE 

0ENT(2)sRSE12 

DENT(5)3RSE1 

0ENT(3)sXCCG 

OENT(A)sXNNG 

DENT(6) sXABG 

0ENT(7)sXCNG 

DENT(8)*YXXl 

DENT(9>*YXXIN 

149 CONTINUE 
IF(MPMODE»NE.1>GOT3150 
PRINT* 'ENTER RCC 
READ*0ENT<1) 

PRINT, 'ENTER RNN' 
READ*DENT<2) 

PRINT, 'ENTER XCC 
READ,DENT(3) 

PRINT, 'ENTER XNN' 
REA0,0ENT(4) 

PRINT, 'ENTER RAB' 
READ*0ENT(5) 

PRINT, 'ENTER XAB' 
READ*DENT(6) 

PRINT, 'ENTER XCN' 
READ,DENT(7) 

PRINT, 'ENTER YCC 
READ,DENT(8) 

PRINT, 'ENTER YNN' 
REAO,OENT(9) 

150 jai 
Klsl 
K2s2 
K3s3 

DO 160 lsl,ll«2 
Ml*I*l 

DATA(l,J)aDENT(Kl) 

DATA(Ml,J)aDENT(K3) 

J*J»1 

IF(I,E0.5)K1«K1i>1 
IF(I,EQ.5)K3*X3*1 
160 CONTINUE 
J*2 

DO 170 Isl*9*2 

DATA(I,J)«DENT{5) 

lA.Ni 

DATA(IA*J)sDENT(6) 

1BSN2 
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3040 

JB*J-1 

3050 

DATA(IB*JB)sOENT(5) 

3060 

ICsIB^l 

3070 

0ATA(IC«JB)»0ENT(6) 

3080 

J«J41 

3090 

170 CONTINUE 

3100 

J«3 

3110 

00 180 Islf7«2 

3120 

DATAd ,J)sDENT(5) 

3130 

lEsI^l 

3140 

0ATA(IE»J)^ENT(6) 

3150 

JEsJ-2 

3160 

IZ*I*4 

3170 

DATA(lZfJ€)sOENT(5) 

3180 

IF*IZ4l 

3190 

0ATA(IF»jE)a0ENT(6) 

3200 

Jaj+1 

3210 

180 CONTINUE 

3220 

J*4 

3230 

DO 190 I«l«5f2 

3240 

DATAd .J)*0ENT(5) 

3250 

IEsI*l 

3260 

0ATA(IE»J)s0ENT(7) 

3270 

IG»I^6 

3280 

JF» J-3 

3290 

DATAd6,jF)aOENT(5) 

3300 

IH*IQ*1 

3310 

DATAdH*jF)»DENT(7) 

3320 

J*J*1 

3330 

190 CONTINUE 

3340 

J»5 

3350 

DO 200 I«l«3«2 

3360 

DATAd,J)s0ENT(5) 

3370 

IP«I*1 

3380 

0ATA(lPtJ)aDENT(6) 

3390 

IQsI^S 

3400 

jO*J-4 

3410 

OATA(IOtJO)aOENT(5) 

3420 

IRaIQ«l 

3430 

DATAdRdO)«OENT(6) 

3440 

jaj^l 

3450 

200 CONTINUE 

3460 

0ATA(lf6}*DENT(5) 

3470 

DATA(2«6}«0ENT(6) 

3480 

0ATAdl.U»0ENT(5) 

3490 

DATA(12«1)«0ENT(6) 

3500 

DO 210 Ial3*24 

3510 

DO 205 J«l«6 

3520 

OATAd«J)«0. 

3530 

205 CONTINUE 

3540 

210 CONTINUE 

3550 

J«1 
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3560 DO 230 IslA«18*2 

3570 DATAn«J)»0ATA(I*J)^0ENT(8) 

3580 Jsj^l 

3590 230 CONTINUE 

3600 MXD«4 

3610 00 2A0 IsU«18«2 

3620 data ( I «MXD ) sQATA ( I fMXD ) -DENT ( 8 ) 

3630 MXDsMXD^I 

3640 240 CONTINUE 

3650 MXD*l 

3660 DO 250 I«20«24«2 

3670 data < I «MXD) cDATA ( I «MXD) -DENT ( 8 ) 

3680 MXD«MXDi>l 

3690 250 CONTINUE 

3700 MXD»4 

3710 DO 260 I«20«24«2 

3720 data ( 1 «MXD) sDATA ( 1 *MX0) 4>DENT (9) 

3730 MXD*MXD^1 

3740 260 CONTINUE 

3750 PRINT,»TYPE A 1 TO BYPASS THIS CASE* 

3760 READtNPASS 

3770 IF(NPASS*EQ,1)60T0100 

3780 IF(MPMODE*E0.2)60T0265 

3790 PR I NT* 'ENTER THE NUMBER OF PHASE CABLES' 

3800 REAOtNPHASE 

3810 N0C«NPHASE*2 

3820 265 CONTINUE 

3830 IF (MPMODE.EO.2 ) NPHA«E»NPhSET 

3840 NPR1*1010 

3850 * HERE THE COMPLEX 6X6 MATRIX IS READ FROM TH£ DATA FILE 

3860 DO 280 1*1 *6 

3870 DO 270 Jsl«6 

3880 IP»(2*I)-1 

3890 I0s(2ftl) 

3900 RC130ATA(IP«J) 

3910 RC2«0ATA(10«J) 

3920 0ATAZ(1*J>sCMPLX(RC1.RC2) 

3930 270 CONTINUE 

3940 280 CONTINUE 

3950 » NOW FORM THE COMPLEX 6X6 Y MATRIX 

3960 DO 290 I«l«6 

3970 DO 285 Jb1«6 

3980 KPs( ( (2«I)-1)412) 

3990 K0«( (2*I)*12) 

6000 OATAYa*J)«CMPLX(DATA(KP«J) .0ATA(K0«J) ) 

4010 285 CONTINUE 

4020 290 CONTINUE 

6030 DO 310 1*1*6 

6040 DO 305 J*l*6 

6050 PRINT*DATAZ(I*U) 

6060 PRINT*DATAY(I*J) 

6070 305 CONTINUE 
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A080 

A090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4260 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 


310 CONTINUE 

IF(NPHASE.EQ«2)GOT0405 
IF (NPHASE.EQ. I » G0T0447 

NOK FORM THE COEFFICENT COMMON TO ALL THE MODIFIERS 
Q 1 s ( OATAZ ( 5 «6 ) ♦DATAZ (4*4) -DAT AZ ( 4 « 5 ) -OATAZ ( 4 « 6 )) 

02s< (2*DATAZ(4«4) )-(2*DATAZ(4«5) ) ) 

Q3«( (2*0ATAZ(4t4) )-(2»DATAZ(4«6) ) ) 

CCa( (Q24Q3)-(01)**2) 

NOW COMMON elements IN EACH MODIFIER ARE FORMED 
NOW FORM THE MODIFIERS 
DO 350 1*1 *4 
DO 320 J*lf4 

CM1«( ( (DATAZ(I*5)-DATAZd«4) )/CC)*( ( (DATAZ ( J«6) -DAT 
6 AZ(Jf4) ) *01) -(DATAZ <J«5) -DATAZ U«4) )«03) ) 

CM2*( ( (DATAZ(I«6)«DATAZ(I»4) )/CC)*{ ( (DATAZ (J *5) -DAT 
& AZ(J«4) )*QU- (DATAZ (J«6) -DATAZ (J«4) >*02) ) 

DATZ3 ( I t J) >DATAZ ( I • J) ♦ (CMl^CMZ ) 

320 CONTINUE 
350 CONTINUE 

NOW FORN THE MODIFIED Y MATRIX 
00 370 1*1*3 
DO 355 J«l«3 
DATY2(1«J)«DATAY(I «J) 

355 CONTINUE 
370 CONTINUE 

DO 390 1*1*3 

DATY2 (1,4) *DATAY ( I ,4) ♦DATAY ( I ,5) ♦DATAY ( I *6') 

390 CONTINUE 

DO 400 K*l*3 

0ATY2 (4*K ) *DATAY (K ,4) <*OATAY (K *5) oDATAY (K ,6) 

400 CONTINUE 

0ATY2(4,4)«(DATAY(4«4)*(2*0ATAY(4,5) ) ♦ (2*0ATAY (4,6) ) ♦DATAY (5 *5) 
6 ♦(2«DATAY(5*6))^0ATAY(6*6)) 

405 NPM*NPHASE^1 
DO 410 1*1*2 
0ATZ2(1*3)*DATAZ(I *4) 

0ATZ2(3*I)*DATAZ(4*I) 

410 CONTINUE 

0ATZ2(3*4)*DATAZ(4,5) 

DO 420 J*l*2 
0ATZ2(J*4)*DATAZ(J*5) 

DATZ2(4*J)*DATAZ(5*J> 

420 CONTINUE 

DATZ2(4*3)*DATAZ(5*4) 

DATZ2(3*3)*DATAZ(4*4) 

DATZ2(4,4)«DATAZ(5*5) 

DO 430 1*1*2 
DATZ2(1*I)*DATAZ(1*I) 

430 CONTINUE 

0ATZ2(1,2)*DATAZ(1*2) 

0ATZ2(2,1)*DATAZ(2*1) 

IF (NPHASE.NE.2 ) G0T0447 
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4600 


DO 435 I«1«NPM 

4610 


DO 432 Jil«NPM 

4620 


CH3«( (0ATZ2(1 *4)-0ATZ2(I«3nft(DAT22<J*3>-DATZ2(J«4) ) ) 

4630 


CM4«( ( (2*0ATZ2(3«4) )-(DATZ2 (3«3) )-(DATZ2 (4«4) ) ) ) 

4640 


ZM0D5^-(CW3/CM4» 

4650 


DATZ3 I«J)*DATZ2n*J)«2NOD5 

4660 

432 

CONTINUE 

4670 

435 

CONTINUE 

4680 


0ATY2a,i)*0ATAy(Ul) 

4690 


DATY2(1,2)*0ATAY(U2) 

4700 


0ATY2C2«l»«0ATAY(2*l) 

4710 


DATY2(2.2)«0ATAY(2*2> 

4720 


DATY2 ( 1 OJ «DATAY ( 1 «4) ♦OATAY ( 1 ,5) 

4730 


DATY2(2*3)«DATAY(2*4>*0ATAY(2,5) 

4740 


DO 445 1-1 «2 

4750 


DATY2 ( 3 • I) «DATAY (4 • I» *0ATAY (5*1) 

4760 

445 

CONTINUE 

4770 


0ATY2(3*3)«(DATAY(4«4)*0A7AY(5*5)*(2*DATAY(4*5) ) ) 

4780 • 


NOW WRITE the OUTPUT FILE 

4790 

447 

WR I TE ( LUOU *20 ) NPRl *NOCASE «NRC «NFQC *NCC «NTPC«NTOT «NPHSET ,NSP « 

4S00 


» NSN«NEUF«F/1000* 

4810 


I F ( NPHASE • EO* 2 ) G0T046 5 

4820 


NPM«NPHASE«1 

4830 


I F ( NPHASE • E0« 1 ) DATZ3 ( 1 « 1 ) *0AT AZ ( 1 * 1 ) 

4840 


IF(NPHASE.E0«1)0ATZ3(2.1)sDATAZ(4«1) 

4850 


IF (NPHASE*E0* 1 ) DATZ3 ( 1 *2) «DATAZ (1*4) 

4860 


lF(NPHASE*E0«nDATZ3{2*2)«0ATAZ(4*4) 

4870 


IF(NPHASE*EO«l)OATY2(ltl)sOATAY(l«l) 

4880 


IF (NPHASE. EO. 1 ) DATY2 ( 1 .2) *DATAV ( 1 , '.) 

4890 


I F ( NPHASE. EO. 1 ) DATY2 (2,1) «DAT AY (4*1) 

4900 


IF(NPHASE.E0.1)DATY2(2*2)»DATAY(4*4) 

4910 


DO 462 K>1*NPH 

4920 


DO 448 L«1*NPH 

4930 


NPR1*NPR1*10 

4940 


WRITE(LU0U«30)NPRl*DATZ3(K,L) 

4950 

448 

CONTINUE 

4960 

462 

CONTINUE 

4970 

465 

NSbI 

4980 


I F ( NPHASE .NE . 2 ) G0T0470 

4990 


DO 467 I*1*NPH 

5000 


DO 466 Jb1*NPH 

5010 


NPR1«NPR1*10 

5020 


WRITE(LU0U*30)NPRl ,0ATZ3 ( I *J) 

5030 

466 

CONTINUE 

5040 

467 

CONTINUE 

5050 

470 

NTsl 

5060 


DO 520 Kb1*NPH 

5070 


DO 510 L«1*NPM 

5080 


NPR1«NPR1«10 

5090 


WRITE (LU0U*3O) NPRl *0ATY2(K*L) 

5100 

510 

CONTINUE 

5110 

520 

CONTINUE 
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UGZYGESl 

5120 WRlTE(LU0Uf40INFN 

5130 PRINT* 'TYPE A i TO PROCESS A NEW INPUT FILE* 

5140 REA0«I 

5150 call DETACH(LUIN.ISTAT*) 

5160 CALL OETACH(LUOU*ISTAT*) 

5170 call OETACH(LUOF*ISTAT.» 

5180 IFd.EO.DGOTOlOO 

5190 999 PRINT* 'STOP AT STATEMENT #999* 

5200 STOP 

5210 END 

5220 SUBROUTINE EARTH(XS*PS*FS*GS) 

5230 GlsSORT(PS/FS) 

5240 GF«(AL0G10(G1/GS) ) 

5250 XS«(8«8193E-4)*(GF)*FS 

5260 XSsXS*(3«8929E*3*FS) 

5270 RETURN 

5280 end 
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0010*«f RUl.h (ULlbfCCr-FssCtc , ) L I ; L I SR ARY/2FTA 

0020 **•*<►*#**♦♦*»♦♦*■*#*♦♦ t>*»w *♦*«►** ****^»*<tiK **#•♦* **♦♦»* ♦*♦♦♦»****•*** 


0030 * this PRuGRAm Af.ALYZES D I STP, I PU^ I CM TPAMSFOPMERS * 

0040 * USING THE LU'^PEP PAPAf ET£P MOOEL. THE "SEP HAY ENTER * 

0050 * values fok the various circuit ele'ekts or may choose * 

0060 * TO RE’ICVE those ELE^^ENTS FROM THE ANALYSIS SIMPLY BY # 

0070 * ENTERING A VALUE CF 2EP0 WHEN yPOi.PTFD UY THE PROGRAM, * 

0080 * ANALYSIS MAY BE IN CNE OF TWO MODES: * 

0090 * * 

0100 * MODE l: PRIMARY > SECONDARY * 

Olio * MODE 2: SECONDARY > PRIMARY * 

0120 * * 

0130 * COMPUTATION RESULTS IN VALUES EQR TH£ MAGNITUDES OF THE » 

0140 * INPUT ADMITTANCE AND THE VOLTAGE THAfiSFER RATIO* BOTH ♦ 

0150 * expressed in DB* as well as their RELATIVE PHASE ANCLES, * 

0160 » IN DEGREES. A PLOT FIlE IS GENERATED WHICH CONSISTS OF # 

0170 * TWO Plots, the fipst is of the voltage transfer patio* * 

0180 * ITS magnitude in DC AND ITS PHASE ANGLE IN DEGREES, * 

0190 * the second is of the input ADf’ITTAlCE* ALSO WITH MAG- * 

0200 * NITUDE IN DO AND PHASE ANGLE I'l DEGREES. * 

0210 * COOING FOR OThE^ DEPENDANT VARIABLE COMBINATIONS * 

0220 * COULD EASILY oE ADDED. the RANGE OF FREOUENCIES * 

0230 * ENCOMPASSED BY THIS ANALYSIS IS FROM 2 <-HZ TO 100 K-H2* * 

0240 * IN SCO HZ increments. * 


0250 *1**4-4« *********** 4 ********"*««#«***««**'^******»*#*#*****#*#**4*#1** 

0260 

0270 4 statements I.UMEEPED 10 THROUGH 49 ARE OUTPUT FORMATS 

0280 

0290 10 format ( ‘THIS PKOGPA'^ USES THE LUf^PEC PARAMETER MODEL*/ 

0300 6 *T0 ANAlIZE DISTR IBUTIC'' TRANSFORMERS*) 

0310 ll F0RMAT(/'M0DE 1 calculates PPI tARY > SECONDARY*/ 

0320 6 *MODE 2 CALCULATES 5ECCNDA9Y — > PRIMARY*/) 

0330 12 F0::maT(/*EMTE 9 I FOf- MODE I OR 2 FUR MODE 2*) 

0340 13 F0RMAT(//*L0AD ImDuCTANCf s*,P15.6** ’’ILLIHENRYS* ) 

0350 U FORMAT(*lOAD resistance =**F15.6** CHMS*) 

0360 15 format: *£NTER CH IF OKAY, ElSE ENTER 1*) 

0370 16 format (/*£NTER LOAD INDUCTANCE (IN MILLlHENRYS) • ) 

0380 17 F0RMAT(/*ENTER LOAD RESISTANCE UN OHMS)*) 

0390 le F0RMAT(//*FEEDER CAPACITANCF S*,F15.6,* MICROFARADS*) 

0400 19 format: *FEED£R CO^DLCTANCE s**F15.6.* mhos*) 

0410 20 format :/*EnTER feeder CAPACITAiCE :i.N MICROFARADS)*) 

0420 21 F0RMAT:/*£NTER feeder CONDUCTANCE :1N MHOS)*) 

0430 22 F0RHAT://*WINDING RESISTANCE s**Fl5.6** OHMS REFERRED TOM 

0440 23 F0RMAT:*WINDING inductance s',Fl5.6** «ILLIHENRYS SECONDARY*) 

0450 24 format :/*EfiTER WINDING RESISTA.lfE : IN OHMS)*) 

0460 25 format :/*ENTEP WINDING lNDUCTA,*CE :IN MILLlHENRYS)*) 

0470 26 F0RMAT(//*TURNS RATIO OF IDEAL TRANSFORMER ***F15.6) 

0480 27 format: *STRAY CAPACITAfXE »*,F15.6** MICROFARADS*) 

0490 2H format :/*£.*:TER turns RATIO*) 
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0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 * 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 


20 AT (/•!:' TlP STP'Y C AC I T A;'1C t (tl ‘■ICROFARADS) * ) 

3^- FC'-‘'-.T(//*aVt' PT'.iCTm. Cc ' I LL I HE.„k Y5 ' ) 

31 '.T ( fr .Ct 5 ',Pl 5 ,f.' 

32 Ffir-' ,T ( / I' iCE (I*. ■'IuLl‘-'E:iRYS) • ) 

33 rJ,-".' ',T(/’e'.TE 9 CHRr- Cn :VjCTA'C-. (I- 'H 05 )M 

FOR -'AT (/ *00 Y3L ../m-.T vA.T^>UT AT T*JE TER‘'I '4AL ?'» 

3v FOR^ AT (/ ’OUTPUT FILF s*»AO) 

36 FORvat I 'COULO 1.07 UtTAC^ FIL£'»A10.* WITH STATUS s*,I3) 

37 F 0 k'-‘AT(A 3 «A 1 ) 

3 Y format ( *Qr-b*r.ED file s', a 10 ) 

39 FOR-(mT( ODE "OF OPpRATIG.^ s'. I 3) 

*.0 format (///'FREO. (hZ) • .TI.a.'vTR (I: D3) * .T30. *VTS PHASE*. 

6 TA4,'YIf;PuT (Db) • .T5a. • YI.jPoT PHASE'//) 

41 F0PMAT(F9.l,T13.lFE13.fc « r2R .E I 3 ,6 .Ta3 .E 1 3 .6 . 2X ,E 1 3.6 ) 

42 format (/'*»ftOTE OUTPUT FIlE s'.AlO) 

43 FORMaT(///'EMTER A VALUE OF 0. FOP ELEMENTS YOU WISH fO IGNORE*) 

44 FORMAT (// 'EASE FwEr.uE.NCY FOR F»EGUr''CY DEPENDANT'/, 

6 *U’NDIf:G RESISTANCE s',Fi5.6.' HERTZ') 

45 FORMATI/'E.NTER oASE FREOUFriCY (IN HERTZ)*) 

4.*> FOR '-iAT (/ •ENTER NAME OF OUTPUT FILE') 

47 FQRfAT(//'RANoE OF VTR MAGNITUDE s*,F6.1,* TO '.F6.1.' DB*) 

45 FORMAT! 'F.A'iGE OF VTP PHASE Ar.GLtS ='.F6.1,' TO '.F6.1,* DEGREES') 

49 FORMAT! 'RANGE OF YlvPUT HAG.NITUDF s',F6.l,’ TO '.F6.1,* DB') 

50 FORMAT! /'ENTER LOWER A\D UPPFP VT” maGhITUDE LIMITS'/ 

6 *!l.! DR). SEbE'^ATED 3Y A CU'VA') 

51 FORMAT !/ 'ENTER LOWER AND UPPER VTR PwASt ANGLE LIMITS'/ 

6 '(I.N DEGREES). SKPFRATED BY A COMMA*) 

52 FORMAT! /'ENTER I r^EP A‘jD UPPER YIMPUT MAGNITUDE Ll'-UTS’/ 

& 'IIN DB), StPEPATED 5Y A CC'^'A') 

53 F0RMAT!/’D0 you vJISH TO ANAlIZE ANOTHER TRANSFORMER ?•) 

54 FOR';aT!/'FOR open CIRCUIT SECO-iDAPY, RESET BOTH THE LOAD*/, 

6 'INDUCTANCE AMD LOAD RESISTANCE TO ZERO') 

56 FORMAT! TANGE OF YlfPUT PHASE s'.FA.l,' TO *,F6.1,' DEGREES') 
5b format I /*E, ITER LOWpS A''D UPPfR YI(;OUT PHASE LIMITS'/, 
o *!ir, DEGaTES). SFPERATED by a CO'-'MA*) 

VARIABLE DECLARATIONS 

implicit COfiPLEXlY.Z) 
complex VTo (200) ,0NE ,VT 

character OUF ILE*9/ "DTOUTl ; * / , Fr;Af -£*8 ,NA.M£*6/ * ZPTRAN • / 

CHAfiACTER*30 IXC,IYC,ITI 

real L»»»R)',LC,GC,PL.LL.CF,GF.C,r.,TViOPI .FREO 

DImpmsIC.N ADPLCT!20C,2> »VTRPlT ! 200 ,2 ) ,PH IPLT I 200 , 2 ) ,PH2PLT (200,2 ) 
DATA 3ASc/20000.0/,NP/ 197/ . ,DI M/200/ .MDIM/2/ .MV/1/ , 

6 T'„ 0 RI/ 6 , 28318 /..-|XC /18 / .XO/ 1 , 0 / ■ X 1 /O , 0/ . X 2 / 100000,00/ , 

6 Of.E/ 1 1. 0,0.0) / .XS/ 6793, 48/ .XYC/ 0,51/ .XYD/ 9,84/ , 

6 Lw/0,086/. 

6 RV./0.14/. 

6 lC/C.O/, 

Z sc/0,0/, 

b KL/lO/, 
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1020 
1030 
10^0 
1050 
1060 
1070 
lOflO 
1090 
1 1 00 
lllO 
1120 
1130 
1 1^0 
1150 
1160 
1170 
1180 
1190 ♦ 
1200 * 
1210 ♦ 
1220 # 
1230 » 
12<»0 * 
1250 # 
1260 
1270 
1280 
1290 
1300 
1310 * 
1320 » 
1330 * 
1340 * 
1350 * 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
U30 
1440 
1450 » 
1460 ft 
1470 ft 
1480 
1490 
1500 
1510 
1520 
1530 


i> L 1- / '' • V / « 

c C ^ • "I '■* » 

*' I / « 

^ I / « 

i- z " 1 • « 

c "TU/ -50 .<Hi/ * 

6 .'TK<;/20,00/, 

c Pt- 

6 PH2/ Ifjfl, 00/ . 

6 ph 3/- ieo«oo/ » 

6 / 1 cO • ^0 / % 

f. AL 1/-50.00/ » 

6 At. 2/ 2u«00/ « 

6 l.'C3/57, 29578/ » 

6 IXC/*FREOUE;lCY I'l HERTZ'/ 

LoE a, 4 AKITH.-'ETIC STATE'*LM FL'NCTIO.; to find 
T^- e F9l‘0UE.''iCV PFPEVPAAT k i:., !' G RCSI5TA.JCE. USE 
THE VALUES Ef TCaEO FOE '• U Ai L' THE 1AA5E FREQUENCY 
TC determine values AT ''THF'^' FDgtjuENC I ES, 

ALSO USE ARITHf'ETlC STATE'X T FUiXTIONS TO CALCU- 
uAT£ MACjNITULES l i D3 FJK T:-E VTR ANO INPUT ADMITTANCE 
AS .nELL as the phase A’K.LF. CF THE VOlTAOF TRANSFER RATIO, 

REF(a) = (X / BASEjftftl.t 
Dt-F(Yi s 20,0 * ALCC10(CAPS(Y) ) 

PHFtY) = OEG " ATAr.2 ( AIUG (Y) , AEAL (Y) ) 

CiTSRMIiE MCOE ''F opekaTION THE USER 

DESITtS AMD READ If: THE APPRUFRIATE VARIABLES 

.'■■ODE I calculates Pt^I^'AEY > SECONDARY 

"CDE 2 calculates SECCMDAI'Y — > PPp'^PY 


PRI.'.T 10 
OH I NT 11 
100 lUOUT r 20 
PHIMT 12 
READ,:'CDE 

IF r'GDf ,EC,l,0R,'XCt.ED.2) 43 

IF(V0D6.;iE.l) GOTO 130 

READ IN load I.MruCT4 |CE A'D CONDUCTANCE FOR MODE 1 
jPERATICN AML SET FEETEP CAPACITAftCE A.ND CONDUCTANCE 
TO ZERO 


PRINT 54 
110 PRINT 13»LL 
PRINT 14, RL 
PRINT 15 
READ, ICxAY 
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HS 



ZPTRANSl 


4 

15A0 


l>- ( :.o) oi'To i;-" 


1550 


Is 


1560 


'if. ' » L U 


1570 


P-JI. T 1? 


1580 


H L “ 4* « L 


1590 


OUTO ll-> 


uoo 




1610 

120 

CP a ^.0 


1620 


Up a I'i , ij 


1630 


yOTO 15 J 


1640 




1650 * 


'•'CAn r. FefeT'rR capacita 'Cc vpd coujuctawce 

FOR ^'ODE 2 

1660 » 


li-eRATlDO A.,r SFT L'.'A0 H.DUCTANCE AP-O comouctance 

1670 • 


Ti ZERO 


1680 




1690 

130 

IP (MODE.NF.2) goto 100 


1700 


PRINT IS.CF 


1710 


PRINT l9»ViF 


1720 


PRINT IS 


1730 


R£AO, I?K«Y 


1740 


IF ( lONAY.EQ.O) GOTO UO 


1750 


PRINT 20 


1760 


READiCF 


1770 


PRINT :i 


1780 


.iead.gf 


1790 


goto 130 


1800 




1810 

140 

LL a 0.0 


1820 


PL a n.O 


1830 




1840 • 


READ I'I all fAT\ that IS OSLO FOR BOTH ^ODE 

1 AND 

1850 * 


•;00E 2 operation 


1860 




1870 

150 

print ‘•^.tfASE 


1880 


PRINT 15 


1890 


read, iok ay 


1900 


IF ( IOkAV.EO.O) goto UO 


1910 


PRINT -5 


1920 


REAO.BASC 


1930 


GOTO 150 


1940 




1950 

160 

PRINT 22.R.V 


1960 


PRINT 23.Lv 


1970 


PRINT 15 


1980 


READ. ICNAY 


1990 


IF { lOKAY.EO.O) GOTO WO 


2000 


PRINT 24 


2010 


READ.R.- 


2020 


PRINT 25 


2030 


RE AD .L4 


2040 


GOTO 160 


2050 
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owO'N": PA« » 


zptramsi 


2060 


17' 

PRI’.T 

2070 



PWI T 27. L 

2080 



P“^I T lb 

2090 



KE.i!;, i:- . 

2100 



IF( I ',,;mY.E '.0) 30T:' i':- 

2110 



pki\t 

2120 



PEmD,,^ 

2130 



PRI'T 

2140 



READ .C 

2150 



GOTO ITO 

2160 




2170 


130 

PR nr 30. LC 

2180 



PRI\r 31.GC 

2190 



PRI'iT 15 

2200 



READ, JLKAY 

2210 



IF ( iCKAY.LO.O) GOTO 190 

2220 



PRINT. 32 

2230 



read.lc 

2240 



PRINT 33 

2250 



READ.GC 

2260 



GOTO 180 

2270 




2280 



NOW DETER-'INl the 

2290 

* 


OEFAOuT DESTI'iATli 

2300 

* 


USER CAN specify . 

2310 

* 


TF.PVK-Al. \U A^;Y 

2320 




2330 


190 

PRINT 3‘^.CUFILE 

2340 



PRINT 15 

2350 



READ, lOKAY 

2360 



IF( IOKAY.EO.O) goto 210 

2370 



IF( lOJT.EO.O) GOTO 200 

2380 



call DETAChCLJOUT.ISTAT. 

2390 



IF ( ISTAT.I.E.G) PRIM 36. > 

2400 


200 

PRINT 34 

2410 



PRINT 15 

2420 



READ. lOKAY 

2430 



IF ( IOKAY.EG.O) goto 22G 

2440 



PRINT HO 

2450 



READ.FNAYE 

2460 



ENCODE (CUF IlE. 37) Flame. • 

2470 



IOUT = 0 

2480 



GOTO 190 

2490 




2500 


210 

CONTI i-.L'E 

2510 



IF ( luUT.EG, 1 ) GOTO 2 3C 

2520 



CALL CPENFILUOUT.OUFILE. 

2530 



IF ( iSTAT.f E.C) CALL E®PS 

2540 



PRINT 38.0UFILE 

2550 



lO'jT = 1 

2560 



GOTO 230 

2570 





°AGE 5 


j.N 15 A file NA'-'ED •DTC'JTl* BUT THE 
JUTP'JT TC riFFERENT FILE OR TO THE 

CASE, the plot file is written. 
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PAGE 6 

2530 

220 

LJOJT = 6 

2590 

2600 


-v. I L T-t f- lOE OF V'AL J'^j TO ?E USED 00 

2610 

* 

T--E nu''l':ATf.s THr- Fot.r hlO^s. 

2620 

2630 

230 

Pi^r:T 47,VT" 1 «VT.r2 

26^0 


4*) » Pt*' 1 ^ Ph2 

2650 


P'-’If'-T 49»ADliAf;2 

2660 


P«P’T 5S,Hh3»PH6 

2670 


PRIM 15 

2680 


READ, I OKAY 

2690 


IF ( ICKAY.EQ.O) GOTO 260 

2700 


PKI.NT 50 

2710 


REAi; «VTRl <VTR2 

2720 


PRIMT 51 

2730 


READ*PH1,PH2 

2760 


print 52 

2750 


READ, ADI fM02 

2760 


PRINT 56 

2770 


READ,Ph3 ,PH6 

2780 


GOTO 230 

2790 

2800 

* 

NOW THAT ALL U^PUT DATA HAS BEEN READ IN, CONVERT 

2810 

* 

'•■'ILLIHE.ORYS TO HEiNRYS Ai.D t-ilCPOFARADS TO FARADS, 

2820 

* 

THIS WILL EASE COf.iPUTATICNS WHE J CONVERSIONS TO 

2830 

* 

I’PEDANCES A^D ADMITTANCES ARE REQUIRED 

2860 

2850 

260 

C = C ♦ I.OE-06 

2860 


CF = CF # l.0E~06 

2870 


lc = lc * i.oe-03 

2880 


LL s LL * l.OE-03 

2890 


LW = Lw * l.OE-03 

2900 

2910 

* 

code EXECUTED i>Y f-iGCE 1 OPERATinft IS SEPERATED 

2920 

* 

FROM THAT EXECUTED RY MODE 2 OPERATION TO FACILITA 

2930 

* 

EASY COMPREhE■NSI^^ OF THE Pt^OGRAM LOGIC 

2960 

2950 


FREQ = 1500.00 

2960 


IF(M0DE..iE,1) goto 270 

2970 


DO 260 1=1,197 

2930 


FREQ = FREQ ♦ 50C,C 

2990 


W = TV,OPI * FREQ 

3000 


A = W 6 C 

3010 


IF (lC.NE.D.O) a s A-1.0/(W»LC) 

3020 


YINP = CN?LX(GC,A) 

3030 


VT = ONE / N 

3060 


IF (Rl.EO.O.O.ANO.LL.EU.O.O) GOTO 250 

3050 


ZLOAD = CFPLX(RL,W*LL) 

3060 


ZWiriD = CWPLX(REF(FREQ) ,W*LW) 

3070 


YCOMS = ONE / (ZLOAD ♦ ZwlNO) 

3080 


VT = (YCOMB » ZLOAD) / \ 

3090 


YINP = Yl !P ♦ YCOME/(.N*N) 


orainm- pa« » 

OF POOR QUAtrrr 


ZPTRAf:Sl 

PAGE 7 

3100 

25''^ 

C'j':Tr.u£ 

3110 


VTO( I ) s vT 

3120 


v73':,_y( j = f:. rr 

3130 


/’■0?-.T( 1 »2) = 0'.F(',T) 

3140 


F-tlPLT(ia> = 

3150 


P’HIPlK I ,2) s PMF(VT) 

3160 


ADPlOKNI) = FFEC 

3170 


AOpi.0Tn,2) = OiFCYTi^) 

3180 


PH?PuT(ia) s fPEO 

3190 


PH2PlT( 1*2) s P4F(YINP) 

3200 

260 

C'JOTI'iUC 

3210 


GOTO 290 

3220 



3230 



32‘tO 



3250 



3260 

» 

EXECUre "HE following code fop mode ? OPERATION 

3270 



3280 

270 

continue 

3290 


DO 280 1=1*197 

3300 


FREQ = FREO *■ 500,00 

3310 


W = TWOPI * freo 

3320 


A =W*(CF^C) 

3330 


IF(LC.,GE.O.O) a s A-1.0/(W»LC) 

3340 


Yif.P = C^1PLX(GF ♦ GC*A) 

3350 


VT S r: / (C’1E*> ( *YIKP*CMPLX (REF (FREQ) *W*LW) ) 

3360 


YIMP = r: * VT * Yifvip 

3370 


VTR ( I ) = '/T 

3380 


VTRPLTd.l) = FR£0 

3390 


VTRPlTC I *2) = [:3F<VT) 

3400 


PH1PLT(I»1) = FF.EO 

3410 


PH1PLT( I *2) = PHF(VT) 

3420 


ADPLCT(I*1) = FREO 

3430 


A0PLoT(I*2) s DFF(yiGP) 

3440 


PH2PlT(I*1) = FkEQ 

3450 


PH2FlT(I*2) = FHF(YI-.P) 

3460 

280 

CONTINUE 

34 70 



3480 

» 

f CW THAT CALCOlATIO''S APE COMPLETE* RECONVERT 

3490 

* 

HENRYS TO MILLlHE.iPYS A .0 FARADS TO ilCRO- 

3500 


FARADS. THIS V.’ILl EASE USER OPERATION. 

3510 



3520 

290 

C = C * 1.C.E 06 

3530 


CF = CF » l.OE 06 

3540 


LC = lC » l.Ot 03 

3550 


LL = LL » l.OE 03 

3560 


LW = (.i* ♦ l.OE 03 

3570 



3580 

* 

r;ow PEGin output section of the program. 

3590 



3600 


WHITE (LUOUT* 39? NODE 

3610 


WRITE (LUCUT *44) 3ASE 


M24 



ZPTRAf.Sl 


ORIGINAL PAGE IS 
OF POOR QUALITY 


362C 

3630 

3640 

3650 

36o0 

3670 

36 «0 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 * 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3680 

3890 

3900 

3910 * 

3920 * 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 » 

4020 * 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 4 


IH (•‘•■.,•1,:'-’. 1) .llTf (lL'D'JT* I 3>LL 
I F { '•: :: i: ♦ (H- . 1 ) ..A I T£ ( ut * 1 4 ) PL 

I P ( '’1."^“ . L:. . P ) . 1 -. I Tr ( L'. , i .) ) r,- 

■iPITF(LJi'LT,22)h'-, 


<RITF(L'J'‘LT,2 3)l.'. 
• KITF(Lui.UT,2o) 


■.RITC(LL'0LT,27)C 
.<RIT£(L'JCLT,30)lC 
'««ITE(LjCLT,31 )0C 
'.^RITE(LuGUT,4U) 

DO 300 I=l»197 

.■.■RIT£(LU0UT,4»1)VTPPlT(I,U .VTR^LTd .2) »PH1PLT < I ,2 ) » 
6 ADPLCK I *2) »PH2'=LT( I «2) 


300 CO^ITI 4UE 

IF(lUCUT.KE.6) print 42»GUFILE 


SET ARGUNENTS F?R VTR PLOT ADD CALL PLOTTING ROUTINE 


ID s ID ♦ 1 

lYC s *VTR VAGMITUfE IN DP • 

ITI = 'VOLTAGE TRANSFER RATIO* 

NYC = 19 
NT I = 22 
IFO = 1 

PRINT, 'FuCTTPiG VTR V5. FRECUENCY* 

call 2?L0TT( ID,NP»mV»\.TRPLT.ND:*'»NLI>'» IXCdYCdTI «X0» 

6 XI ,X2»XS»IF0.'«iXC«*lVC»NTI »XY0,VTRI,VTR2,XY0) 

SET arguments FcR VTR PHASE PLOT AND CALL PLOTTING ROUTINE 
TO PUT aOTH DR A PHASE ON THE SA^E SHEET 

lYC s 'PHASE ANGLE I' DEGREES' 

MYC = 22 
IFO = 2 

PRINT, 'Plotting vtr phase vs. fpepuency* 

call ZPLCTT ( ID,NP,MV- ,PHlPLT,Nr>I".rTIM, IXC iIYCdTI »X 0 , 

6 XI ,X2 »Xb, IFO,NXC,NYC,MTI . X YO . PH 1. ,PH2 , XYD ) 

SET arguments for If'PUT ADMITTANCE PLOT AND CALL 
PLOTTING ROUTINE* 

lYC s 'INPUT ALMITTAflCE Ir. 03* 

ITI = 'INPUT ADMITTANCE VS. Ft-'ECUENCY' 

H''C = 22 
f'TI = 30 
IFO = 1 

PRINT, 'Plotting yinput vs. freouency' 

call ZFL0TT( lO.NP.NV.ADPLOT.NOIM.f’’: I* ,ixc» IYC,ITI »X0. 

& Xl,X2tXS«lF0,NXC.NYC«NTI .XY0,A01.A02»XYD) 

SET arguments for I’lPUT ADMITTANCE PHASE VS, 
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4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 * 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 » 
4320 
4330 * 
4340 * 
4350 * 
4360 * 
4370 * 
4380 * 
4390 » 
4400 * 
4410 * 
4420 * 
4430 * 
4440 * 
4450 * 
4460 * 
4470 * 
4480 * 
4490 * 
4500 * 
4510 * 
4520 * 
4530 * 
4540 * 
4550 ♦ 
4560 * 
4570 ♦ 
4580 * 
4590 * 
4600 ♦ 
4610 * 
4620 * 
4630 * 
4640 * 
4650 * 
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F 'T'ct iCY =l.CT >' . C \LL PLOTTING POGTI'lE 
-.VGLL I . 

. V <“ « 

— L €. 

if: = .. 

PRl'.T,*:>LOTTr!'. YI >:)T JhAGE VG. F~ E0UF.‘'.CY • 

call iPLGTT { IO.-;P,-v,ptH2PL''..‘ OI’' I V » I XC » I YC 1 1 T I , XO . 

6 XI ^A2*A£,It-C«;.>C» lYC»i.‘»’I,XYn,PH3»PS4,XYD) 

SEE IF THE jShR -^TSHFS TC EXECUTE TM£ PROGRAM AGAIN 


PRINT 53 
PRINT 15 
READ* I Clay 

IF ( IfiKAY.EQ.O) GOTO 100 
STOP 


definition CF VAFIAElES IM 'ZPTPANSl' 


A 

ADPlGT 

Aul 

NASE 

C 

CF 

DEG 

F^A>»E 

FREO 

GC 

'oF 

ID 

IFC 

ITI 

IXC 

lYC 

ICUT 

ICKAY 

ISTAT 

lC 

LL 

LLOUT 

L'» 

NUDE 

YV 


N/ME 

NDIM 

':P 

■JTI 

NXC 


temporary COf’PLEX VAPIAHLE 

ARRAY . YMPUT VS, FREQUENCY PLOT INFORMATION 
LO.'ER Ll;iT OF CRD I NATE FOR Y INPUT PLOT 
UPPER tl-'-IT OF OPDPiATE FOR Y I NPUT PLOT 

OASE f=e,:, fcr frepupncy dependant resistances 

5TPAY C'PACITA'.CE 

flecer capacitance 

CONVERSION factor fd(-,v) RADIANS TO DEGREES 
NAfE TC CE GIVET OUTPUT FILE 
FRECUENCY (IN hEPTZ) 

CORE CONDUCTANCE 

FEEDER COrtOUCTArCE 

IDtCr TIEICATION NUH'^EP OF PLOT FILE 

PLOTTED CONTPOL CODE 

TiTuE PLOT 

AECI5SA lADEL fop ^LOT 

ordinate LA^iEL FOP PLOT 

•FILE LY THAT NAVE EXISTS’ FLAG 

•Value? ACCEPTA13LE* PESPOMSE 

STATUS XETuPfiED 8Y SUBROUTINE ’OPENF’ 

CORE inductance 
load ^DUCTANCE 
OUTPUT DEVICE CODE 

WIf.Dlri«j riDUCTAfiCE - REFERRED TO SECONDARY 
column DI'^ENSIDfi CF VTRPLT.PH1PLT»PH2PLT» OR ADPLOT 
MODE GF operation (1 OR 2) 

NUi-'FEP OF DEPENCANT VARIABLES TO BE PLOTTED 

TURNS PATIO CF IDEAL TRANSFORMER 

THE NA'-.E OF THIS PROGRAM (FOR ERROR MESSAGES) 

ROW CI''£'i5iQf^ OF VT0PLT.PH1PLT,PH2PLT* OR ADPLOT 
f!UVEEP OF POINTS C?; A3CISSA OF PLOT 
riUVoER -IF characters IM ITI 

NUmEER op CHARACTERS I.! IXC 
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ZPTRA^Sl 


PACjE 10 


4660 » 
4670 » 
4630 * 
4690 * 
4700 • 
4710 » 
4720 4 
4730 * 
4740 4 
4750 4 
4760 * 
4770 4 
4780 4 
4790 4 
4600 4 
4810 * 
4620 4 
4830 4 
4840 * 
4850 4 
4860 4 
4870 4 
4880 4 
4890 * 
4900 4 
4910 
4920 


' YC 

.><■ f" I Lt 
.-■IPlT 

? tti'UT 
P'- 1 

PH3 


T'.OPI 

VTR 

VTRPlT 

\/TRl 

VTR2 

XO 

XI 

X2 

X3 

XYO 

XYD 


YCC?-’B 

ZLOAD 

z.-'riD 


■ U- VE'. OP C iAiJAfTn'S I(‘, lYC 
'UTl-.)T f^lLu i' A C 

lAi.-v iTrt v'TP tn. v'jS MS, FRCnue iCY PLOT INFORMATIOM 
IT^ YTi -uT 'HAat *^LOT I ,FOk-'ATION 
Ll. l'V Ll 'IT OF Of^Or'ATF FOR VTR PHASE AOGLE PLOT 

■JPPt.R Ll' IT CF CSDIOATE FOR VTR PHASE ANGLE PLOT 

LO'..tP ul! IT CF C'-UINATE FOR Y INPUT PHASE PLOT 

UPPER Lif'IT OF CCDMATE FOR YI'iPUT PHASE PLOT 

LOAD H-SI stance 

WINCL.S resistance (FREOUENCY DEPENDANT) 

REFER^^F') TG secondary >VHEN it is entered 

TWO TI; Es PI 

voltage TPA.NSFFP ratio 

vtf. magnitude vs. freouency plot Information 
LOWL." lI UT of OPDI'IATE FOR VTR PLOT 

UPPER limit CF OPDINATE FOR VTR PLOT 

A6CISSA COORDINATE OF ORIGIN FOR PLOT 
FIRST VAlUE on A3CISSA OF PLOT 

last value on apcissa of plot 

A3CISSA SCALE U. U.,ITS PER INCH 
ordinate CQ-JRDIf ate CF ORIGIN FOR PLOT 
DISTANCE IN IfiCHES To dE SPANNED BY XY2-XY1 
ADMITTANCE OF LOAD 6 WINDING COMBINED 
IMPEOAf.Ct OF THE REFERRED LOAD 

INPEOAiCE OF THE WINDING - REFERRED TO SECONDARY 


END 
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SUBRLIST 04/08/81 3:28 PM 

•♦♦♦♦♦•■•♦■»***#4*4***#*#i»4*-*#*****#'»’**»**'»***-***4*'<»**************4*****'«f*- 


LIST CF 5Uf?90UTINE5 

* NOT < INTEO'^IC .ALLY) Cu^TmI'IFD Ir. P,?USTAY USEP LI3RARY 

ABCDEM COMPUTES OIAGO"AL FCP*^ OF ABCO ‘-ATPICES FOR LINE LENGTH X 

ABCOEN COMPUTES NXM MATRIX FORM cF AECD ‘ATFICFS FOR LINE LENGTH X 

ADBMPY COMPUTES special MATRIX POODUCT C*A*C*9 .^H£RE 0 IS DIAGONAL 
CCMMPY COMPUTES THE COMPLEX CHAI.V -»ATRIX MULTIPLY 

CDAPBC COMPUTES SPECIAL *'ATRIX OPERATION WsXC*YD*Z» XO*YD DIAGONAL 
CHYPER COMPu”YeS THE ComPlFX hYPEpROLIC SINH.COSh OF COMPLEX' ARGUMENT 
CMAMBC COl-iPUTFS SPECIAL MATRIX OPERATIC'; DaA-R*C 
CMAPBC COMPUTES SPECIAL '•ATRIX OPEWATich C*A^F*C 

CMOBAM POINTS OP hPiTES FuP. OIAcfflSIS A COMPLEX '-atRIX Tl DB-AMGLE FORM 
CMINRF COMPUrps a-sD IMPROVES (RY FflOOfrpvA) COMPLEX MATRIX INVERSE 
CMTABC COMPUTES COMPLEX '.’ATRIX •'..(.xiply CsATPArSPOSE*3C0NJUGATE 

cmtado Computes matrix add csa^s 

CMTCMP compares an INPUT CQMPlEX MATRIX '.^ITH STANDARD MATRIX 

cmtcop computes matrix copy 3*a .jtih a and 0 EACH square 

CMTCPY COMPUTES NOMSGUARE MATRIX COPY EsA AND ZEROES BORDER OF B 

cmtcrc Interchanges two specified pohs and columns after copying 

CMTDWD COMPUTES SPECIAL MATRIX OPERATION D'A'aA0*9W*CD» AD»CD DIAGONAL 
CMTIDE performs DIAGNOSTfC CHECK OF MATRIX FOR IDENTITY OR DIAGONAL 

CMTiRc Interchanges tv.o specified pnv.s a *o columns in place 
CMTMPT COMPUTES MATRIX TRANSPOSE MULTIPLY C*A*PT 

CMTMPY computes matrix MULTIPLY CsA*P 

CHTPOL PRINTS OR WRITES FOR CIAGfOSIS A COMPLEX MATRIX IN POLAR FqRM 

CMTPRT prints or writes for DIAG^■05IS A COMPLEX MATRIX 

CMTRAN COMPUTES MATRIX TRANSPOSE OPERATION BsAT AND ZEROES BORDER OF B 
CMTSUB COMPUTES MATRIX SUBTRACT CaA-R 

CMTTMp Computes ^^ATfiIx transpose multiply csat*b 

CMTZRO ZEROES BOARDER OF NOMSOUAPE MATRIX A 
CMVMPY COMPUTES THE MATRIX-VECTOR '‘ULTIPLY WsA*V 

csYADj Forces exact sym^etpy on a specified nxn matrix 

cvoban prints or writes for diagnosis a complex vector in ob-angle form 

CVECMP compares am IfiPUT complex vector with a standard vector 

CVEPOL prints or writes for diagnosis a COMPLEX vector in polar form 

CVEPRT prints OR WRITES FOR DIAGNOSIS A COMPLEX VECTOR 

CZYRED COMPUTES REDUCED Z.Y i;ATRICES FOR ZEPC POTENTIAL ASSUMPTIONS 

OPUFRW SPECIAL ROUTIfiE FOR PEAO/WRITE OF FILE CPULIJKN 

ERRSTP GENERAL STOP ROUTINE MTH haMF aND CODE CAPABILITY 

ERRSTT General stop routine v.ith name, code and integer output 

FILSTP provides FILE READ ERROR IDENTIFICATION AND ABORT 

formfe Produces a formfeed to "^erminet 1200 with suitable timing delays 

LINEPU COMPUTES all PER UNIT LENGTH ‘MATRICES GIVEN Z AND Y 
MOPENF modified OPENF PROCEDURE* PRIMARILY FOR RANDOM BINARY FILES 
NORTCT COMPUTES NORTON PARAf-ETER IN RECURSION FORM 

OPOPUF* file manager for opening IASMAX OPULIJKN FILES (NOT IN LIBRARY) 
OPNVOL COMPUTES FULL N VECTOR VOLTAGE FOR N-M CURRENTS EQUAL ZERO 
OPTAOM DETER'*INES DPA and VTP FQF ADMITTANCE WITH M OPEN TERMINALS 
PROSEO determines NODE PROCESSIfiG SEQUENCE* LEVELS AND CONSISTANCY 

OCALIB Computes coefficients for a splined polynomial fit 
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RVEPRT POINTS OP «PIT£S POP CIACiVOSIS A PEAL VECTOR 
THENCT CC'iPUTES Th£f.IVl'i PAPAvETEP I'; RECL'PSION PORM 

TRAMAO COMPOTES CISTPISuTlOf! T^A.-iSFOR 'ER ADMITTANCE PROM FILE TRANPILE 
YAOOEC OECO-’POSES 3X3 OR ANALYTIC MATRIX INTO DISCRETE PHYSICAL ELEMENTS 
YAOMIT COMPUTES TH£ ANALYTIC AOf ITTAnCE ASSOCIATED '.^ITH LUMPED ELEMENTS 
YAOMNU Cr.iVERTS -x; GRuU;,OED TO •:*1XN^1 NO^’-PEPFSCT GROUNDED ADMITTANCE 
YREALI tests PHYSICAL RcAl I Z A c I L I TY OF A SPECIFIED ADMITTANCE MATRIX 
YTRAMT expands distribution TRAN.SFOP 'EP scalar admittance INTO MATRIX 
YTRANP COMPUTES DISTRIBUTION TRANSFORMER PRI”ARY DRIVING POINT ADMITTANCE 
ZPLOTM SEMI general PURPOSE PLOTTING SU0POUTINE-.X DEPENDANT VARIABLES 
ZPLOTT SpMl general PURPOSE PLOTTING 5U9»0UTINF-M DEPENDANT VARIABLES LONG X ; 


original PA« » 

OF POOR QUALITY 


I 


2-2 


ORIGINAL PAGE 18 
OP POOR QUALITY 


LIBRGEN4 


04/08/81 3*.28 PM 


ooiossn«rouT(l?; 


0020 $ 

0030$ 

0040$ 

0050$ 

0060$ 

0070$ 

0080$ 

0090$ 

0100 $ 

0110 $ 

0120 $ 

0130$ 

0140$ 

0150$ 

0160$ 

0170$ 

0180$ 

0190$ 

0200 $ 

0210 $ 

0220 $ 

0230$ 

0240$ 

0250$ 

0260$ 

0270$ 

0280$ 

0290$ 

0300 $ 

0310$ 

0320$ 

0330$ 

0340$ 

0350$ 

0360 $ 

0370$ 

0380 $ 

0390$ 

0400$ 

0410$ 

0420$ 

0430$ 

0440$ 

0450$ 

0460$ 

0470$ 

0480$ 

0490$ 


IDe-:T:9.9USTAVU«USTAY 

utility 

R»L.P*RU5TAYI/FCR^ FEOl 
P,L«r.,PUSTAYl/AcCCE^'01 
P,L»K,FUSTAY1/A08f-PY01 

A »L»P*PUSTAY;/CCAP?C.r»i 

7,L«P.?USTAYl/CHYPEP01 
^♦L»F.RUSTAY1/C''AP?CCI 
r<«L»P.PUSTAYI/C’TADDrjl 
P.L«F.RU6TAYl/CVTC0P'Ji 
R*L»r«PUSTAYl/C“TCFC01 
^♦Lffi.PUSTAYl/C^'TIDtOl 
IS*1CL 

20«f'iCCPY/lF/»H0LD/ 
20»:.CCPY/1F/ .HOLD/ 
20.i‘’C0PY/lF/.HCL0/ 
2P.VC0PY/1F/ .HOLD/ 

20. '"COPY/ IF/ .HOLD/ 

20. .‘••COPY/ IF/. HOLD/ 
20.-<0PY/lF/.H0LD/ 
20.!'C0PY/1F/.H0LD/ 
2n.MC0FY/lF/»H0LD/ 

20. -XCPY/IF/ 


PRHFLtOl 
PRMFl:02 
prwfl:03 
pkmfl;04 
PRMFl:05 
PRNFl:06 
PRMFL :07 

prmfl;03 
prmfl:09 
prmfl: 10 

FILl:20.X 

FUTiLtOl 

FUTIl:02 

FUTIl:03 

FUTIl:04 

futil;05 

FUTIl:06 

FUTIl:07 

FUTIL'.OS 

FUTtL509 

FUTIl: 10 

utility 

PRMpl:01 

PRrFt:02 

PRMFL :03 

prmfl: 04 
prmfl: 05 
prmfl: 06 
prmfl: 07 
prmfl: 08 
prmfl:09 
prhfl: 10 

FILE:2C. 

FUTiL'.Ol 

futil:02 

futil:03 

FUTIl:04 

futil:05 

futil:06 

FUTIL:07 

FUTIL:08 

FUTIl:09 

FUTIL’.IO 

UTILITY 

prmfl: 01 
prmfl: 02 


. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 


R. L .P.FUSTaYI 

J.L.F.R'JSTAYI 
P.L.r .RUSTAYl 

f.l.f.kustayi 

S. L«R«RUSTAYI 
R.L.K.RUSTAYI 
R.L.R.RUSTAYI 
R.L.F*.0USTaY1 

RUSTAYl 
R .L »F #RUSTA Y I 
X2S.10L 
20.HCCPY/1F/ . 
20.MCCPY/IF/ . 
20. .‘-COPY/ IF/. 
20.MCCPY/1F/. 
20.‘-^CCPY/lF/. 
20.VCOPY/1F/, 
20.HCOPY/ IF/ . 
20.MC0PY/1F/. 
20.MC0PY/1F/, 
20.MCCPY/1F/ 

r.l.R-Rustayi 

R.L.R.RUSTAYI 


/CMTIRCOl 

/CMT’PYOl 

/C'-'TPOLni 

/C.-^TPPTOl 

/CHTRAOOl 

/CMTSUOOI 

/CMTT.‘'POl 

/CSYAOJOl 

/CVEPCLOl 

/CVEPRTOl 


HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 

HOLD/ 


. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 

. 20 / 


/C2YRED01 

/efrstpoi 
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0500S:PR^*Fu:03»R, 
0510S;PR.VFI.;0<»»^» 
0520$;PR>'FL;05»p» 
05301;PRMFL*.0a,k , 
0540I:PRMFl:07«o, 
0550S:?R»«Fl;08ik, 
0560$;PR^PL:09»P, 
0570S;PRmfl; lOfP . 
05a0S:FlL£:2U«X3S 
0590S:FUTIl:01»20 
0600S:FUTIl:02»20 
0610S:FUTIl:03«2u 
0620S:FUTIl:04,20 
0630S:FLiTIl:05»20 
06-^0S:FUTIl:06»2O 
0650$:FUTlL*.07,2n 
0660$:FUTIl:08»20 
0670S:FUTIl:09c20 
n680$;FUTlL: IC»20 

0690S:UTILITY 

0700S:PRMFl:01,R, 

0710S;PRMFl:02<Rd 

0720$:PRWFl:03«Rd 

0730S:PRMFl;04»P , 

0740S:PRMFl:05»R. 

0750$:PRMFl:06»R» 

0760$:?R» Fl:07.P, 

0770S:PR(^Fl:08»R, 

0780S;PRMFu;09»S, 

0790S;PPf-iFi.: 10»R » 

0800S:FILE:20«X4S 

0810S:FUTIl:oi ,20 

0820S;FUTIL :02.20 

0830S:FUTIl:03»20 

08A0S;FUTIl;04,20 

0850S;FUTlL:05t20 

0860S :FUTIl:06,20 

0870S;FUTIl;07»20 

0880$:FUTIL:08,20 

0890S;FUTIl:09,20 

0900$;FUTIi.; Ui,20 

091os:ut:lity 

0920$:pr.‘ifl;0i 

0930S:PP.MFl;02 »p, 

09408; ?R.-'pl:03«R, 

0950$;PRMPL;04,9, 

0960S;PRM«fL:05«R, 

09701:PRMFL:06«R , 

0980S;PRMFl;07,R, 

0990$;PR’^Fl;08,R, 

IO0OS;PRMFl:O9«F , 

1010I;PRmfl; 10,R, 


L,R.PU5TayI/LIMEPU03 
I,»R.PuSTaYI/Z?lOT*’01 
L.F.RUSTAYl/CVDbAIOl 
L,F.PUS^AYl/PP0S£n02 
L«R.PObTAYl/AV£PRTai 
LtA.RuS'^AYl/TME .C”^01 
U,«.PUSTayI/E'5PST'^01 
LfF.PUStAYl/FlLSTPOl 
*ICL 

,yCCPY/lF/ . mold/ * 20/ 
»KC0PY/lF/,MCi.0/,20/ 
,r, COPY / IF/ .MClDZ , 2 n/ 
,!■ C0FY/1F/.HCLD/.20/ 
, /-COPY/IF/, HOLD/»2 o/ 
’COPY/ IF/, mold/, 20/ 
,"COFY/1F/,MOLD/,20/ 
.•iCOPY/lF/, Hr, I.D/, 20/ 
.'CQPY/IF/ , mold/, 20/ 
..•'COPY/ IF/ 

LfR.RUSTAYl/YADfMTOl 

LtKDPUSTAYl/C^TDUOOl 

L*R»PCSTAYI/CPUFRW02 

L,FDPUSTAYl/YTCAf!P02 

L,R.RiJ5TaY)./CNTA?5C01 

L,^^.RL;STAYl/CCV^:PYOl 

L,F.RUSTAYl/Cf"VVPYOl 

l»R*pustayi/yfealioi 

L,R.7UbTAYl/C.'I*<RF0l 

L»FdRUSTAY1/YADM,-;U01 

,10L 

,‘-;CC?Y/IF/,MOl0/,2O/ 
,'iCCPY/1F/,holD/,20/ 
,* CCPY/IF/ .HC'lD/ ,20/ 
, '•■COPY/ IF/ ,mClD/ ,20/ 
,.'1C0PY/IF / ,Hr.'LD/,2n/ 
.MCCPY/IF/ ,HOlD/ , 20/ 
,^'CCPY/lF/,H0LD/,20/ 
,MCOPY/ IF/ .hold/ * 20/ 
,,/COPY/lF/ ,HOlD/ ,20/ 
,-COPY/lF/ 

LtH.RUSTAYl/CMTCPYOl 
L,R.RUSTAYI/C''T2ROOI 
LtR.ROSTAYl/Cf'TvPTOl 
L,fDRUiTAYl/YTRA‘lT02 
L,P.RUSTAY1/C^'A» 2C01 
L ,P .RUST AY I /TPA.^JADOA 
L,H.SUSVAYI/YmODECOI 
L,R.3U5TAY1/0P.NV0L01 
L^P.RUSTAYI/C^'OBANOI 
L,R.RUSTAYl/fi0RTCT0l 
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lOZOS 

1030S 

1040S 

1050$ 

1060S 

107CS 

1030$ 

1090$ 

llOOS 

1110 $ 

1120 $ 

1130$ 

ll‘» 0 $ 

1150$ 

11605 

1170$ 

1171$ 

11305 

1190$ 

1200 $ 

1210 $ 

12115 

1220 $ 

12305 

12 ‘» 0 $ 

12505 

1260 $ 

1270$ 

1280$ 

1290$ 

1300$ 

1310$ 

1320$ 

1330$ 

13^0$ 

1350$ 

13605 

1370$ 

1380$ 

1390$ 

U005 


FILS:20«X55«IOL 


futil:oi 

FUT!l: 02 
F'JTU.:03 
FUTIi :04 

potil :05 

FUriL:06 

FUTIL:07 

FUTIl:08 

FUTIl:09 

futil: io 

utility 

PRMFl.’OL 

pr'^-pl:02 

PR*^"u :03 
prmfl :04 
prm?l:05 


FILZ:2a»X6S 


20* -'COPY / IF/ »HCi-0/ .20/ 
20.' CUPY/IF/ .H^L^/.Zn/ 
20. 'COPY/ IF/ .hClO/ ,20/ 
20«‘;COPY / IF / .HJlD/ .20/ 
20.-CDPY/ IF/ .FCLO/ .20/ 
20. •• COPY/ IF/ .HCuO/ .20/ 
20. ‘CCPY/IF/.HCLO/.ZC/ 
20, COPY/ IF/ , hold/ .20/ 

20. ‘COPY/ IF/ .HCuD/ .20/ 
20..-C0PY/1F/ 

P ,L .PUSTAY 1 /C*'TCr’PO I 
p «L .‘■•.fustayi/cvecvoqi 
P. c .F.RUSTAYI/ .<CPfiNFOl 
ri.L,' .PUSTAYI/ZPLOTTOI 
P.L.K •PU.'TaYI/OFTAD’^’OI 


FUTIl:01 .20 
FUTIL:02,20 
FUTIl:03«20 
FUTlL:f’A ,20 
FUTIL:05.20 
utility 

FILF:01 .Xis 
FILE:02.X2R 
FIl£: 03,X3P 
FILErOA.x^R 
FILE:05,X5R 
file;06,x<3R 
FILE:07,X7S 
FUTIL;0i,u7 
FUTIi.:02.07 
FUTIl; 03.G7 
FUTIu:0fc.07 
FUTIC:05.C7 
FUTIl:06.07 
PROGHAM;aA(',LIP 


file;R».x/r 

FILE:AA,X20 

EMDJOB 


lOL 

f CCPY/lF/,, CLD/.2C/ 
■•‘CCPY/lF/,HC/.D/, 2 n/ 
r-CCPY/lF/,HCL 0 /. 20 / 
■'CUPY/1F/.HGLD/.20/ 

•’CCPY/IF/ 

lOL 
lOL 
ICU 
lOL 
lOL 
lOL 
i'?L • 

R.<D/0l .07/ .'- COPY/ IF/ .hOcO/ ,C7/ 
PV.D/02 ./ ..••iCOPY/iF/ ,hOLD/ .07/ 
R‘.L /03 ./ .’iCOF Y / iF / ,H0L0/ .07/ 
KmO/O*../ .rCCPY / IF / .HOLO/ .07/ 
py,D/05 ./ .MCOPY / IF / ,HOL0 / .07/ 
py.0/06./»CCPY/lF/ 


ICL 

7P «.'!£«<. LI HRARVl 


PAGE 3 
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ABCOENSl 04/08/81 3:52 PM 

• ••♦♦•♦♦•^ir****************** **•*♦**♦***•♦»** *■**♦♦■**#♦**♦**♦****♦**♦*♦♦♦* 


oio*#Rur4 
020 
030 
040 * 

050 * 

060 * 

070 ♦ 

080 * 

090 * 

100 
110 
120 
130 
140 
150 
160 * 

170 

180 

190 

200 

210 

220 

230 


4a;AeCDE^;01 (!'!OGO»CO?£a30t/ ) 

SUBPOUT I ME A3C0EN ( CL « ZO , ><0 , 5 , c j ,x .f , , “l , 

6 Ai“t 1 3? - » AO » cU » CO » CU • SA 1 ) 

this SUbRCUTIf'E CO’^P'JTES THE ag. 6C*C0.00 
COEFFFICIENT .‘'AT9ICES FOR A UMFCC^.'l COf'ICUCTOR 
TRAflSIMISSrON LI»''E. IT irP'jTS the EIGENVALUE VECTOR 
0L» THE characteristic If-'PECA’^CE ZO AMD ADMITTANCE 
TO MATRICES (If. PHASE CONOUCTUP CORFO I NATES ) AflC THP 
VOLTAGE f.ODAL MATRIX S A.MO ITS IfiVE=SE SI 
complex D*.{M> «A--C1) ,2ERC«0f E 

COMPLEX 2C(M,.M) .AC(••^■ 1 ) .C 0 (•%^^) .S(f ,51 (M,M) 

COMPLEX YCtM^M) ,PQ(^ •) ,00 ('-.H) ,SA 1 
data 2ERO/(0,«0.) /»uf.e/ ( l.* 0 .) / 

IF(\,GT.M)CALL ERRSTP( 'A3CDE1* «0) 
lF(X.r!E. ( 0 *) )G0T0200 

FCR X= 0 . AsO=I» CsC=NULl 
DO 100 I=1»N 
DO 100 Jal»N 
aO( I fj) sZERO 
30(I.J)=ZER0 
C0( I »j) sZERO 
DO(I»J)=ZERO 
IF(I.ME.J)G0T01C0 


240 AO(I»j)sONE 

250 00(I»j)=0NE 

260 100 CONTMUE 

270 RETURN 

280 200 CONTINUE 

290 DO 300 lsl,j 

300 300 call CHYPER{DL(n*X,cM(I) ,Af--(I) ) 

310 call AD5.iPY(5»ANi,5I 

320 call CMTRAMAO^CO^.'Sr.^M) 

330 call ADSHPY(S*aM,5I ♦SAl,N,M) 

340 call C‘^Tf ?Y(SAUZO» = 0»'^ UN,f») 

350 call CMT-dY <YO.bAl»C0»‘;«M»M.r1) 

360 RETURN 

370 end 


original page is 
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oio*4P'JN ♦*;aob'-pyc;i <'' c<sC.cofiE®3e< ) 

020 SUBRQuTI'IE AD3 'PY (A,L'»5.C«N» H) 

030 * this SUSROUTIiNE Cri^PljTES THE special complex matrix product 

O 4 O ♦ CsA»0*5 AKERE A,s,C use the upper left lX.'i partitions of 

050 * respective MX‘ ''ATP ices. D IS A CC^PlEX VECTOR OF DIMENSION 

060 * M 3F rJHiCH THE UPPER ELEMENTS REPPESE'IT A DIAGONAL MATRIX 

070 complex a(v.h) »e (•*♦•••) ,d<- ) ,5l'm, zero 

080 data zero/ (0, »0.) / 

090 IF (N.GT*m) CAL u £RR STP ( • iUeMPY • , U 

lOQ DO 200 I = l»'i 

UO DC 200 J = l«.4 

120 SJMsZEf’O 

130 DO ICC <sl,N 

140 100 SUMaSUM>A(I»K)*DOC)*e(K,J) 

150 200 C(I.J)=Sur* 

160 RETURN 

170 EhO 
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oio*<»PUN ♦=;cc‘- •• PYOl ('.ogo*cokes:ok ) 

OiO SUtfPCLTi- £ CCf^PY(Al,ol,Cl,Ol.A2.c:2.C2.D2.A3«03»C3«O3»SA,N,»i,IOIA*LU 

030 • This SiJiiHOUTIiNe PEPFOP- s the CC.-PlEX chain matrix multiply 

040 * 43=A1*m2*o1*C2 

050 * o3sAl-*c2*bl*C2 

060 ♦' C3sCl^A2^01*C2 

070 * C3 = Ci*62«>Dl*r.2 

080 * •••ME=E EACH matrix IS SO'JACE MXr: A .0 EACH DIHENSIONEO HXM 

090 * iiA IS 4 SCRATCH ARi^A-y 

100 10 FO«MAT( • IDENTITY CHE'^ I'H CCMVPY*) 

110 complex Ai ,31 , m , Cl ( *,y) ,ri 

120 complex A2 OSH) ,e? ,C2 C »<■••) »D2 (”♦* ) 

13C complex A3(fS:i) {►S U »C3('SV) ,C'3r •*•’) 

140 COMPLEX SA( J»Vi JM,ZERC«0'NG 

150 CHARACTER SL8*tj 

160 data ZEPO/(C,.0,)/»OME/(1..0.)/*EPSI/1.E-6/»5UB/'CCMMPY*/ 

170 iPri.oT.^) call ERF.STP (SUP.O) 

180 call CMTM»- Y(A1»A2,A3»N*?., :,* ) 

190 CALL CMT,'?Y(-?l,C2»SA.N. 

200 CALL CfTADC{A3»SA,A3..ri,; ) 

210 call C‘.T’!PY(A1,S2*B3»N,.N, ;,\ ) 

220 CALL CMTmPY{31»D2.5A»<'S*;»'UM) 

230 CALL C"TADD(33*SA,33»N»“) 

240 CAwL CMT;«PY(CUA2»C3»N,;,, i,M) 

250 call Cr.T.‘'PY(Dl»C2*SA*:4.'i, 1 *;.!) 

260 CALL CMT/DC (C3tSA,C3»'J.M) 

270 CALL C'T IPY (Cl»c2»D3»w.-i.'SM) 

280 CALL C.•’T•^PY(C;l,02♦SA♦^. s;i» -S 

290 call C‘lT4i:C(D3»SA,D3.N,*'’) 

300 IFl IOlA.£G.O)RETufii'i 

310 ♦ IF OESIREC CHECK IDEMTY AT»D-CT*f = I 

320 * first form SA=AT*D-CT»3 

330 DO 200 Isl,,\i 

340 r^O 200 J=l»^; 

350 SUM=2ER0 

360 DO ICO Ksl*!' 

370 100 SUM=SjM*A3{K,n*D3(K»I)-C3(K«n*G3(i^»I) 

380 200 SA ( I ,j) =5L’M 

390 * SA SHOULD 3E DIAGONAL. COULD CALL CMTIOE. WILL OPT FOR 

400 ♦ local check for COMHUi'lICATlOH CCNVENIEMCE 

410 * first check diagonals 

420 00 300 I SUN 

430 300 IFICABSlSrtd.n ) .GT.EPSI)GOT0600 

440 * next check off diagonal ELEMENTS 

450 XMAXsO, 

460 DO 400 I=l »N-1 

470 DO 400 JsUUN 

480 XsAMAXl (CAdS(SA( I » J ) ) »CA35 ( SA ( J ♦ I ) ) ) 

490 iFlX.GT.XfAX) XMAX sX 
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CCHMPY51 


PAGE 2 

500 

o 

o 

C0NTI'^0c 


510 


IF<X.LT.£?Sr J’ET jRM 


520 

600 

COf'ITI'iUE 


530 


•nPITE (uU*10) 


540 


call C--lTPf'.T(SA»'i».--ULw') 

1 

550 


call cA a 37P ( SUB • 1 ) 

560 


5TDP 

570 


E'lO 
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OlO*#RUf: >s;CDAPSC'U (NCGOi CORES 300 


020 
030 ♦ 
0^0 * 
050 * 
060 * 
070 • 
080 
090 * 
iOO 
llO 
120 
130 * 
l«»0 


S'udRQUTI:;E CDA?'iC(Au»lD,C,W»n»f1) 

this SOc-^OUTI'.E CC'iPOTcS the special hatrix operation 

.'isAD*zZ*C ..here AD.ai) ARE OIAGC'IAL AND REPRESENTED 3Y THE 
UPPER elements of !->-VECT0PS. .< and C ARE THE UPPER LEFT 
NXN partition of general -matrices. see RCR E-8A» 
E-16A*E-17A 

C0:-*PLEX U'SM) »C(N,") ,AD(f‘) .:3D( •') »YI ,YK 

CAuCulATE diagonal terns (.^HlCh INVOLVE AC) 

IF(\,GT.'»)CAlL £RRSTP( 'CDAP3C* »1) 

00 IOC Isl»N 

100 «(I *I)=AD(I)-»dD{I)*C(I«I) 

NEXT calculate OFP DIAGONAL TFP‘^5 (WmICH DO NOT INVOLVE AO) 
NP1sM«-1 


150 

160 

170 

180 

190 

200 

210 

220 

230 

2A0 


200 


DO 200 Isl,iN-l 
►'.sfiPl-I 
Yls5D( I i 
YK=BO (K) 

DO 200 jsI^lfN 
LSNPL-J 

#i/(I »J)=YI*C(I »o) 
W(<*L) =YK*C(i<»L) 


RETURN 

END 


INAL PAGE JS 
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CHYPERSl 04/08/ai 3:53 PM 

******)»*it -r^*»**iH»* 4 ** ♦♦*#*♦♦•*♦***♦♦*♦♦**#♦♦#*##♦♦■**# 


OiO**PUN 4a;CHV5c = ci ( iO‘jO*CORE*30K) 

020 S'Ji3PDuTI..P C.HYPER(Z*SINN*C0SH) 

030 ♦ THI5 5"r«jtTlNE COMPUTES THg COMPLEX HYPERBOLIC SINE AND 

040 * COSI'iE CF COMPLEX ARGUMENT Z. THIS COMPUTATIONAL ARRANGEMENT 

050 * C'-OSE,! FOR NUMERICAL CONSIDERATIONS 

060 COMPLEX Z.Si'MHtCOSH 

070 data -iALF/ • 5/ «uN£/ I */ 

080 XS 

090 Y = AIvug(Z) 

IOC U=EXP(X) 

110 PCOSnsHAuF* (U40NE/U) 

120 RSI^H=FCOSK*TAMH(X> 

130 RSlNsSI,*-. (Y) 

140 PCOS=COS<Y) 

150 SI .H 5 C:'-' P I- X ( R S I HH*R Cos . R COSH*R 5 1 N ) 

160 COSHaCMPLA(RCGSH*RCOS»RSlNH*RSIN) 

170 kETUR i 

180 END 


OBMttMM, PMf fi 
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CMAM8C51 


0‘*/08/8l 


3:53 PM 


*#♦♦♦**♦♦*♦*♦*♦■•**• » 1 


oio**pu:4*s;c'‘uvoc:i (-.-Cn: ) 

020 .£ C" A'>;£C ( A ,i »C ,D ,L «.•! , 4 »r 01 ) 

030 * ^413 S^.LPOUT; •■£ CC'^’U-^£S THE SPECIAL COMPLEX MATPIX OPERATION 

OaO * OsA-J»C -HE3E 6AC-t ■:aT'’IX IS 0 I .5 lO.MEO ^O I -IXMO I M 

050 * ANO .,h£:5£ 

060 • A IS uX*' 

OTt» * ? IS la- 

080 ♦ C IS -X\ 

090 » 0 IS LXi. 

100 CO‘'PL£a h ( .OP .-Cl ) ,C( iri ■,;|DI ■') ,0 ('lOr-UNDIM) 

1 10 CC^'PlEX it- 

120 lFC..AXO(u«f ».:) .GT.^CPPC'-LU £FP5TT{ 'C.^ APHC* .1 »LP''».'t) 

130 CO 200 Isl»L 

lAO 00 200 

150 SUM=A(I.j) 

160 CC 100 >Csl..-’ 

170 100 SU*^sSu:;-3( I »A)»C(K*J) 

180 200 0 ( I O) sSLif* 

190 RE^L'^A 

200 E'<0 


ukiginal paqe is 
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0l0*^RUM*=;C‘UP3CCl < 'i0<jC«C?PEs30!C ) 


020 

03C 

040 

050 

060 

070 

080 

090 

100 

llO 

120 

130 

140 


a-;d 

A 

•a 


s u H P 0 U T r : E C '•■< A P c* C ( A . F. » C . . L « ' U 4 ♦ 0 I '•• ) 

This SunRQUTlNE CCf ?"’'ES THE SPECIAL COMPLEX MATRIX OPERATION 
'JsA*H*C where each ■lATi’IX IS OI'-’E SIOrEO fiO I '<»X‘40 1 X 
■,')HEP£ 

IS 

IS lX.-i 
CIS X 4 
D IS lX:; 

CO‘‘PL£X A (NniM,',OI'-') .3 < i^['% iCI ’! »C( iniM.riDri) ♦0( '4Dr-‘»MJIX) 
C0'’PLfX SVM 

IF( VAX0 .GT,,-:CI*'»CALL ERPSTT ( 'C'-'APnC* » I »L«X«N) 

DO 200 IsL»L 
DO 200 jsl»N 


150 3<J''»sA(l,j) 

160 DO 100 <sl«--’ 

170 100 5UM = 5U'U3(I,K)*CU»J) 

180 200 D<1 »J)=5J." 

190 AETjS\ 

200 E'.O 
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OlO’»»RUI'i '»s;C"D:;AI .'jL <^^'GO.CCPE = 30K ) 

020 SUi^ROUTI’.C C>'D6 a;- -‘..iW.LUtWKASeA) 

030 * this SUirHCUTl-'ie PPI'ITS OR WRITES FOR CIAQ/'IOSTIC PURPOSES 

0<|.0 * The ELE'*ti-TS OF A Sv'JUARE COMPLEX '•iATRIX IN POLAR OB FORM 

050 ♦ Lj.tO.Ofa FOR P»ir,T 

060 * LJ.'.t.Oo FOR rtfilTE TO FILE 

070 11 «^ORwAT (OF9.2) 

030 12 FORMAT (• •) 

090 CC'^PLEX ,;(i' .M>.2 

100 01 1E‘.SIC:. ’.sX AREA (•.;/) 

no '^ATA OEG/57, 29578 /, hzeRG/O./ 

120 IF ('i.GT.! .Ok, ('4*'.) .GT.NaICALl ERRSTP( 'CMTPnL* ,1) 

130 • 00 200 Isl,r; 

UO DO 190 J=l,*i 

150 2sA(I,j) 

160 AMPsCAbS(Z) 

170 IF(AV?.lE.R2ERO)GOTO150 

180 L'B = 20.*AlCiG10 (A.''P) 

190 .iXAREA ( J) sOB 

200 wKAREA ( j^M) =DEG*ATAG2 (ApUG(Z) »KEAL(Z) ) 

210 G0T0190 

220 150 UKAPEA ( J) s-9999,99 

230 '-KAPEA ( j-^m) sRZERO 

240 190 CONTL'.UE 

250 ,vRITE(LU» 11) (.,KAR£A(j) ,J = 1,N) 

260 WWITE(L0,1 1) (.‘XAREA (o♦^) ,jsl,r) 

270 200 ..HlTE(Lu»12) 

280 PETuR-; 

290 EGO 
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OlO**PUM ♦s;C‘-U .PF,1 r.ooC.CCP~s30<) 

020 SUdPOUT I :£ C^' I ‘.RF ( A , S V L . 5A2 ♦ SA 3 ,n aPEA ,flRUN ) 

030 * Tl-tlS 5U'7FCi.iTIr£ FIRST COf'^UTSS Af ESTI'UTE OF 

040 * am i a'EFSe CP a osi ;g lIPsapy pouttie cmtimv. 

050 * IF .GT.O TM£M ITFPATIO.'S liSI to FA0DEEVA»5 METHOD 

060 * A!^E USEC TC r-PPOVE Tl-£ ESTIMATE, COUALE 3UFFERI.MQ 

.70 * TECi-M.ICLE IS uSEC TO SAVE COPY PPCCEOOPE. 

080 C0*-‘Pl£x a (' ,M) ,SmI r.» H ,SA2 (uM ♦SAS (*«:’) ♦two 

090 C'ATAT,,C/(2»«0»)/ 

100 IFLIFSO 

no call C''TCCP (AOAI 

120 call CMTI V (SAl ,i'Ui\,N ♦■..K AREA) 

130 lF(\Pj\.EG.0)G0T025r' 

140 DO 200 Mr?ur.si,MRU.v 

150 IFUFlIP.EQ.DoCTOISC 

160 • . at this point SAI contains CUPPE'iT ESTIMATE AIMVEPSE 

170 CALL C'T'-PY (A,S/.l »Sa 2 l.N, -i) 

180 DO 100 Isl»N 

190 SA2(I,I)sT.tC-5A2(I»I) 

200 CO ICC Jsi,f. 

210 100 IF( I.NE.J) SA2 ( I »J) S-SA2 < I .J) 

220 CALL C'T^'PY (SAUSA2.5A3,ri.N,‘l,M) 

230 IFLIPsI 

240 * at this point SA3 COf TAli 5 CUPPE't* ESTIMATE OF AINVER5E 

250 G0T0200 

260 150 COM'^IMUc 

270 * at this i^CI.^T SA3 CON'^AIf.5 CJC'PEiST FSTHATE OF AIWEKSE 

280 CALL C::T* FY (A,SA3»S#i2*N»‘;..‘.'.'t) 

290 00 175 IsU J 

300 SA2( I ,I ) =T..C-Sm2 ( I , I ) 

310 DO 175 osl*" 

320 175 IF(I,:.£,J)SA2(r«J)=-5A2(I,J) 

330 call C“T-'?Y<SA3.SA2»SAI 

340 iFLIPso 

350 * at this pci *T SAI CONTAINS THE CUPPE'lT £STr<'ATE OF AINVERSE 

360 200 CONTINUE 

370 PRlNT»'CCf PLETEC .PU'. I TEi? AT I C.’lS • 

380 250 IFUFlIP.EQ.CICAlL C‘-'TCuP ( SA 1 ,A .N ,:•« I 

390 iFdFLIP.tO.DCALL TCCP ( SA3 .A *N,V) 

400 300 return 

410 END 


04/09/81 3:54 PM 
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0l0*»PUW »s;CyT«,-.C:i r CC0.C0P£*30ir ) 

020 SUtjRCUTI-i c: TAcCCAti ,C.L»''. 

030 * '^MIS 5..£rOtTUE PErPCP-'S Tr^E CP'-'PlEX TRA-'iSPOSE 

040 * aCO^jLOATE VATPIX ’••■JLTIPLY C*ATPA'.SP0SE*BC0.IJUGATE WITH 

050 • EAC-1- : r £..SIo(.EO ..L.r /".OI 1 AND ..here 

060 » A IS Xu 

070 * £ IS • X* 

080 * C IS uX . 

090 CCVPlEx a (/.DI : !'• I .r? ( Jr'. iDI ) .C (.';DP- « OI’^) »SvjM,ZERO»TEMP 

100 data 2£'0/ (0,,0.) / 

110 . lFr-*A:<0(u».'^ ..‘U .UT.NPI UCAuL £PRSTP( •C“TAEC» »1) 

120 DJ 200 Isiu 

130 DO 200 jsif 

140 SU'^sZEPC 

150 00 100 N=l»y 

160 TEMPa3(<»j) 

170 100 SUMsSO'^4.m{K,I)*C’ 1PLX(REAL(TEMP) ,-Ar'AG(TE‘lP; ) 

180 200 C(I *J) sSv. 

190 RETJR I 

200 Z'iO 
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010**B'JN **;C^TADOrJl (.•(Cy0,C0R£a30< ) 

020 SJ9RC'JTI ';£ C.'*TAC0 ( A ,6 «C . i «f-' ) 

030 * This SCcRCUTI^.F Pl^FCP-IS the complex -‘ATRIX ADO 

040 * CaA*H l.5I,-4G THE UPPER LEFT ’ PARTITION OF .1ATRICES 

050 * A,a»C «HICH ARE EACH DI”F''31D MXf' 

060 * ■^OTE THIS routine CA,. aE DONE IN °LACE» IE AsA^B 

070 CC -’PlEx a (i'N ■') «b ) »C 

080 IF(N.GT,--*) CALL ERRSTP ( »C iTfl^D* . I ) 

090 CO ICO Isl«N 

100 DO ino 

no 100 C( U J) SA ( I « J) ♦B ( I . J) 

120 RETjR;. 

130 ENO 
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010**RUN ♦*?CMTC”P?l ! C50.CCPE*3i’« > 

020 SJ'^^pCjTI-.E C’TC*- P ( a ,h ,Sa I ,n .-ic I’MD) 

030 * "^wis SL’Zi'C'JTir.E C^KPARES au T PuT COMPLEX SQUARE MATRIX A 

OaO # -»ITh a C'EFERE.'CE CC 'PlEx ^'\TRIx R '-nHOSE ELEME'lT NUMERICAL 

050 * '/AlL'ES AHE ESTA.'LIShED 3Y THE I-:ITIAL EXEC'JTIO.^ OF THIS 

060 ♦ Su“RO iTI;:E 

07C IC FORf -T ( • • ) 

080 1 1 :--OR-AT(tPi5.t,) 

090 12 FO‘»--AT { A43»F15.6I 

100 C0''P'.£X Z£PP«TF^*P 

uu complex a ) ,R (,• ',Mv,:icr ) ,5A1 (N'^I S iOIM) 

120 l.A'^A IFL^C:/f./.*<ZE^C/t ./,ZEPO/(<),,o.) / 

130 lF(!FLAG.tQ.l)GCT02(-C 

l<»0 call C' TCCPtAiR^t.,'.:.!'.!) 

150 IFLAG*l 

160 lF<f.Eu. .C'I.-.)(iOT0200 

170 call C'<T2R0(R»N,ri,r:DIM) 

1 80 200 CO'.TIf.JE 

190 aIIsRZERC 

2C'0 Xl^sRZER'j 

210 C-0 2Z0 1 = 10, 

220 00 220 

230 XaCABS (R ( I , J) ) 

2AQ IFCX.EO,P2EPO)GOT0210 

250 TEMPs ( A ( I . j) -R ( I , J) ) /X 

260 SAl ( I ,j) sTEf’P 

270 XSCA3S (T£:- P) 

2 80 IF< I .EQ.J.AnD.X.GT.XI I ) XI I?X 

290 IF(I .■>IE.J,AND,X.5T.XI J)XlJaX 

300 fjOTC220 

310 210 SAl ( I ,j) sZERO 

320 220 COr.Ti„u£ 

330 CAcL FQR'-FE 

3<»0 HRr;T, • IDs* » ID 

350 PRlVT^tFERTUP-icL' MATRIX’ 

360 CALL C'iTPCT(At*U;,DlM.06) 

370 PSI'iT 10 

380 PRT T» ’PEFEPEr.Ce MATRIX’ 

390 call CmTPPT (R .•i,NDI' »0^) 

LOO PRIrT IC 

LIO PRlNT,’hORMAwIZED OIFFEPE.'lCE MATRIX* 

L20 PRINT 10 

430 DO 3C0 Isl*N 

440 PRINT ll,{ REAL(SAl (I fj)) tjsurn 

450 300 PRINT 1 1 , f A I M aG ( SA I ( I » J) ) , J s 1 ,N ) 

460 PRINT 10 

470 PRI»:T 12 « ’Maximum normalized Of: DIAGONAL 0I FFERENCE* ’ »* II 

480 PRINT 12»’MAXIMum NORMALIZED OFR DIAGONAL D I FFERENCE* ' »X I J 

490 CALL FORMFE 

2-18 



CMTCMPSI 

500 

510 


SETjR:m 

Em:> 
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CMTCOPSl 0<»/08/8l 3:54 PM 

»»<»•***«******** **»**(t>««**4^«*.ft 


010»#RUN **;CMTC0PCl «N0G0»C0RE*30K) 

020 SUaROUTINE CMTCOP ( A ,B »N,M) 

030 * this SofcHOUTiME PEPPORMS THE COPY PU^CTIQN 3sA FOR THE 

040 * UPPER left .'(XM partition OF '^XM A AND 5. 

050 CO'^PLEX a (M,V) .3 (M.m) 

060 IF(\,GT.‘*-.)CALl ERRSTP ( 'C^TCOP* .1) 

070 DO ICO I-^1«N 

080 DO 100 J=I»N 

090 100 C ( I ♦ J) sA ( I O) 

100 kETUR.N 

110 ENO 


original 
OF POOR 


PAGE 18 
quality 



»«*#*******»*******•#•#****"***«*'»«•**•««#***«•«****«****«'***•**«*•#*«♦**' 


CMTCPySI 0<^/08/8l 3:54 PM 


OiO*#RU(4 *a?CVTCDYOl ( ^CG J »CCPE = 30K ) 

020 SUdPauTI'it CMCPY (A»B«M».UNDIf<) 

030 * This SUtl^OUTli^F COPIES A INTO t IE 6aA AND ALSO 

040 • ZEROES THE 0NU5ED BORDcP ELEMENTS OF 6 

050 * tACH “ATRIX is OlvENSIOr.ED NDIMXNDIN. 

060 COMPLEX A (‘Ol.'NNDIM) »B(NOIM*.NDI‘n 

070 IF(‘.,G'^.'.0IH,0R.'*..GT.NDIM)CALL ERR5TP ( ‘CMTCPY • , I ) 

080 DC 2C0 

090 DO 200 jsUNDIM 

100 IF ( I .GT,M.OR,J,GT,N)GOTOIOO 

110 8( I .J) aA( I «J) 

120 GOT0200 

130 100 B(I«J)a(0.*0.) 

UO 200 CONTINUE 

150 return 

160 . END 
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«#****#**-^'»-**#**# •****»»#-» «♦#*♦•*** »»*«*‘«*******^«****«*«*«*#> •«*•**«**♦ 


OlO*#PU'l ■‘s;C'*TCsC?l no»30»C3PE = 30K ) 

020 SUl3R3UTr.t C‘-irC^fC(4.S»K,L.N.,-U 

030 * TwiS SUf-'ROUTiNt COPIES THE UPPEP LEFT PARTITION OF COMPLEX 

040 * «AT;<Ix a TO 3 <. ITh THE < AND L RCV^S AND COLUMNS INTERCHANGED 

050 » ^CTE < .LE.M.ANO.L.LE.N.AND.N.LE.M 

OhO * note calls Sue.^OUTINES CHTCOP AND CMTIRC 

070 CO”Plex An,y),2ruM) 

080 IF»<.OT.;uOR.L.CiT.N.CR.N.GT.M)CALL ERRSTPC 'CMTCRC* .1) 

090 CAt-i. C ITCOP 

100 call CMTIRC (Q,I<»,.,N,N) 

no RETjPr. 

120 ENO 
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(HOOfcR'Jf-* •«lC‘’TD..rci 'i'CG0»CCPE«3On. » 

020 buy?Cw'Tr:F .c^« :«» M.t. ) 

030 • T-IIS S'j^tKCuTI'it C:>'PUTSS ’‘HE special COMPUeiC ><ATftIX 

0%0 • P^::?l-CT Du«AO*e'.M*CD .'hEDE AO iND CD APE DIAGONAL 

050 • '*A’“^ICES PE^»*^E5E^TfcD \'i N VEC'^OP CAPTITIOM OF AN 

060 • ^ vector Af,D Drt 4‘D ?v ARE THE ^•ls IPPER LFT 

070 • PARTITU,"S OF ^’ATRICES. Tt«E '‘-f «Oi^S AND COLU**NS 

080 • OF T-iE vLTPLT ‘'AT^lX r»> Ai^'E 2EF0 ^ILLED, 

'•'90 cc-'-Lcx v: < *) »5.» « *» j »cr < u r'.\.) .ZERO 

I 0 U A T A 2 1 0 / < 0 • ♦ 0 , ) / 

no IF(%. jT. HCAlv. MR5TP(*CHTnv,0’»U 

120 OO ICO III*'' 

130 OO 1 00 

140 IF{ ( I .l£.‘ » .AlVD. ( ) > ov. ( I ,j) «AC ( I ) J ,jj »CDt j) 

150 IF « 1 1 ,gT,,,) ,CP. ( V.OT,'.) ) Dw U «jJ «2EFC 

UO IOC CONTl'.i.)E 
170 »ETuR\ 

180 E'*0 
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010 

020 

030 

0<»0 

050 

060 

070 

OBO 

090 

100 

UO 

120 

130 

160 

150 

160 

170 

180 

190 

200 

210 

220 

230 

260 

250 

260 

270 

280 

290 

300 

310 

320 

330 

3‘*0 

350 

360 

370 

380 

390 

600 


♦♦PUN ♦■ICMTIOEOI (N0G0.C0Pb«3b^ ) 

SUapOUTIME CMTlDEiA,?...' » U . 10 U »L' ' ) 

• This subroutine a c^^ck to see ip the upper 

• LEFT NXN PARTITION OF The MX » COMPLEX v. ATP IX A IS 

• DIAGONAL OR IDENTITY, T ^E CO'iTPOl PA7AMETE=»S ARE 

• tI0E*EQ,0 PtPFCP'" 01A00 *al Ch;;C< 

• IIOE.NE.O PEPFC->"- lOE iTITY CHfCv 

• LU.EQ.06 FOR CIAGNC'STIC Pe I' T 

• LU.NE.06 FOR OUG iJSTlC ycITe t.; 

• IF TESTS ARE inFGATI'/E The ■ S J'^ROL’^ I.' E C'^TPPT IS CALLED 

• And STOPS 3Y call T'J ERRSTP 

10 FORVATCXMAX in C*'TID£*' «lPtlY,Y) 

complex A(M»M) »0NE«2 

data EPSl/UE-6 / «CNE/ < I . *0. ) / «R2EPO/0./ «RONE/ 1./ 
data EPST/1.E-‘»/»XLAR/1.E6/ 

IF(N,GT.M)CALL ERRSTP ( ’C'ItIDE* »l) 

XMlNiRONE 

IFni0E.EQ.0)G0T0200 

• ChECX diagonal elements for U..ITY FOR IDE'TITY CHECK 
DO 100 Ial«N 

ICO IF(CASS(A(1 .I)-CN£) .GT.EPSI )aOTOeOO 
GOTOwOO 

• IN order to Save CORE. ^ ! .D S‘'AlLE5y DIAGONAL ELEMENT MAGNITUDE 

X.yIn*XLAR 


200 


300 




500 


DO 300 I*1»N 
X«CA3S(A(I«1) ) 

IF(X,l.T,X^^^N)X'M^sX 

NOk COMPARE >.'FF DlAGu.'A^ 
xvin-rcne Few identity 
XMIN«5MALLEST diagonal 

continue 

XNAXaRZERO 
DO HOO 1*1 »N- I 
DO 5UU J* I 

X»A> AXKCAbS<A( I .J) I ,CAF5(AU*I) ) ) / X^MN 

IF (X.GT.XMAX) XMAXaX 

CONTI.s-uE 

IF ( IDU.,NE.0) X« ITE (LV>* 10» X^ AX 
I F ( X w;.x , GT , F PS T ) GO T OaOO 
FETbP*. 


FLEMer.TS FOR either CASE 
CHECK 

ELEMENT **AGi1ITU0E FOR DIAGONAL CHECK 


610 

620 

630 

660 


600 cal^ c itprt(a*n«;-ulu) 

PRlfT,*XMAX IN C-TIDE*' «XMAX 

KETiiRv 

end 
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010*»RUN *s;Cv.TMCCl (.'.CG0,CCl^h’s30< ) 

020 bUctqOuTL.E CMIPC{A,n,(_.‘l.V) 

030 * TmIS SLT'ROUTInE IME^'C^^AMCiSS the < and l columns and rows of 

040 * COMPlZV .-ATPIX A ITH L.LF.N.A.vu./ .LE.N. 

050 * NCT£ THE CPE'^ATIC^i IS DONE PLACE* I E A TO A 

060 CO’-'PLEX A(M*>')*C 

070 iFC^i.GT.V.CP.L.GT.^-.CR.K.GT.m CALL ERR 3TP ( • CMT I .‘IT » , 1 ) 

080 ♦ iNTEPChiMf^GE ROUS 

090 :-0 100 Jsl*'. 

100 CsA(<,j) 

no A(<»J) =A (L*J) 

120 100 /r(LtJ)sC 

130 * INTERCHANGE CCLUf'.'lS 

140 DO 200 Isl*N 

150 C=A(I,K) 

160 m(I*K)sA(I*c) 

170 200 A( I .L) sC 

180 return 

190 END 
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CMTMPTSl 04/08/81 3:53 PM 

ft#*##** ##^*******^ -***********'»*****'*'»>'»****«'*'****■«'***'***'<*'*** ************ 


010*#PUN 

»s;CyT'Pni (r,QG0*C0P£s30<) 

020 


SU'ri70uTI,.E CM-PT(A,£,C,L.y» l,.‘lDr;) 

030 

» 

This SiJbROUTI .E PERPOP^IS THE CO.-'PlEX MATRIX TRANSPOSE 

040 

* 

'MULTIPLY CsA»‘iT WITH EACH '•> IMEMS 1 0^FD ND I^xriDT'' AND WHERE 

050 

* 

A IS -‘XL 

060 

* 

a IS f.XL 

070 

* 

C IS -'X^ 

080 


' CO ’PLEX A C;0P'*^DI'-) »9 ( .>r‘«:;0I •') »C CI^ .:-lDI -1) ,SUM«ZEP0 

090 


CiATA 2EPC7 (O.fO,)/ 

100 


IF(.\,C-T..-I •■) CAlL F'5RSTP( •c^'T’^'PT* ,1) 

110 


DO 20C Isl»M 

120 


DC 200 J = 1 

130 


SUMsZEF.O 

140 


DO IOC IC = l»L 

150 

lOO 

SUHiSLi.-^A ( I ♦K)*r.(J»X) 

160 

200 

cn iJ) sS'jH 

170 


RETuF\ 

180 


END 


..oiaiNAl. .5 


ORrGlNAL PAGE 18 
OF POOR QUALITY 
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OlO**P'JN '»s;C"T‘''PYr; i, ( ^,;GC .CC-^E* 3tiK ) 

020 suePCuTi:.*: c- T'cy <«.r. .c.u»f u 

030 * TmIS Surt^CUTf E pr="f'.i:5 ’<i THE CCPLEX ''ATPIX >’ULTIPLY 

040 * CaA*= ..ITh EACm Clf £-,SLi.' ET 0I'< A.'iD WH£|i£ 

050 * A i: La. 

060 * “IS X,-. 

070 * C IS uX 

080 co'Plz.x i(* :i .cr ) ,cr •. *sui^«Z£po 

090 lata zht:./ (0, ♦.',) / 

100 IF( «x;c(u.'%':) ..’T.Vl £PRSTO(tC‘.T''PY',l) 

no DC zee isi«L 

120 DC 200 JSL»‘, 

130 SU^aZEPO 

UO 00 ICO <sl»v 

150 ICO SUMabUM^A ( I »X) *^ {<» J) 

160 200 Cn «J) aSOf 

170 PETCPr 

180 ENO 
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CMTPOLSl 


04/08/81 


3:86 PM 




OlO*tRUN 
020 
030 * 

O 4 O * 

050 * 

060 * 

070 * 

080 11 

0<90 12 

100 13 

110 
120 
130 

uo 

150 

160 

170 

180 

190 

200 

2l0 100 

220 

230 

240 200 

250 
260 


• *;C''T?':'lOi r.0G0»C0PEs3uK) 

SUdPOuT I ■ F C>TPCL < •* *■■‘..■ 1 ^ ,LU»4KAREF ) 

TriIS SwEROLlTlf e POINTS QR WRITES POP 01 AGNOSTIC PURPOSES 
The El-E‘-t'!TS OF A SOUARe COMPLEX ATRIX IM POLAR FORM 
LU.E2.06 FOR PRPT 
LU.rt.i-6 FOP WRITE TO FIlE 

.'^OTE if ...GT.a PPCL'ADlY best TC reduce 15 field ^IOTH 

FO-'^«AT( IPAE15.7) 

format (* ♦) 

F0RVAT(9F15.7) 

complex 

DT’ENSION *-KAREA(r.rt) 

DATA OEG/57. 29578/ 

IF (N.GT.N.CR. (N*;,) .gt.!';w) call ERRSTP ( *Cm rPOL* « 1 ) 

DC 200 1*1 «N 
DO 100 Jal.iM 
2sA( I ,j) 

X* REAl(Z) 

YsAIMAG(Z) 


t.KAREA { J) bCABS<2) 

V.KAREA ( J.\) sD£G*ATA,*,2 (Y,X) 
«RITE(lU»11) (WKAREA(U) «J*1«N) 
k.R I TE (LU « 1 3 ) ( wX AREA ( J'*’’; ) 
wRlTE(uU,12) 

PETUR;', 

END 






a(MINM.PAeE« 

Of KKW QUALITY 
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CMTPRTSl 0<»/0a/8l 3:56 PM 


0L0*#PUN ♦s?C'*TPnTOl ('.0G0*C0PE = 30K ) 

020 SU'iPOUTI .E CVTPPT ( A ,N %!-i ,lU) 

030 * this sotPouTiiiE pp r»Ts OP vypites fop diagnostic purposes 

0<»0 » the elem ents of a square com plex -ATP IX IN RECTANGULAK FORM 

050 * LU,E0*06 FOR PR. li .T 

060 * UU."e.C6 FOR WRITE TO FH_E 

070 • '-DTE IF |•■^.QT,6 PPu*='AclY PEST TO REDUCE 15 FIELD WI.OTH 

080 ll FOR“AT( IP&E15.T) 

090 12 FOH‘'AT ( • • ) 

100 CC’PlEX A(i^»M) 

uo IFC),GT. -')CAll ERRSTP ( ‘C'-'TPRT‘ * I j 

120 LO 100 lsl»N 

130 .iRITE(LU.ll) ( REALtAdO) ) 

140 WRITE (LLMl) (AlNiAGtA ( I »J) ) 

150 100 URITE(LUd2) 

160 return 

170 END 
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CMTRANSi 


OA/08/01 


3:56 PM 




010»#R'J|'; •a?CMT9A.‘.Jl (I10G0.CQRE*30K ) 

020 Sw=R0i;’'l.‘;€ OiTRam (A ' u‘lOI^•) 

030 ♦ ^HI5 5wGR0UTI\£ CC>'PIjTE5 TH£ TRANSPOSE OF A COMPLEX MATRIX 

040 » a*AT aITH each OIvENSIOfiED NDIMXNOIM AMO WHERE 

050 * A IS ;-'XM 

060 * 3 IS NX” 

070 ♦ IT also zeroes UMO'SED ^OuOAPY FLE*- ENTS OF MATRIX 0 

080 complex a (NDIV ♦MOI^') r:Olf',MCI‘ ) 

090 IF(.vaxo<MW.) *GT,MDIm)CALL EPPSTP ( ‘C'-TPAM* . 1 ) 

100 DO 200 Ial»MOIM 

no DO 200 janNci'! 

120 IF( I .GT.M.OR, J.oT.iN) C'OTOlOO 

130 B( J*I ) rA ( I O) 

140 G0T0200 

150 100 3(J. 1)2(0. »0*) 

160 200 CONTI'joe 

170 return 

180 END 
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CMTSUBSI 0^/Qfi/Bl 3:56 PM 


OlO**RUN *a;C'-'TSueOl<:;OG0»CORE*30K') 

020 SUBROUT I iE CMTSUD I A ,£? ,C ,M) 

030 * this subtract Routine rerfupms the complex matrix subtract 

060 * CsA-6 USIf.G The upper lEFT r.XN PARTITION OF MATRICES 

050 * A,B«C .»HlCH ARE EACH 0I,"£NS10 MXM 

060 ♦ NOTE this routine CAH flE DONE IN PLACE* IE AaA-8 

070 complex a .3 ,C ( 

080 IF('I,GT,M)CALL ERPSTF ( 'CMTSUa* » U 

090 00 100 Ial*N 

100 DC 100 jsi*:; 

lio 100 c< I «J) aA( I «J) -B ( I ,J) 

120 P.ETgRN 

130 END 


»#«****** »**'»**********1»*«**«« ft **«ft1»**-«*#***'»««#«*#*««#*«*«««*##«**«**#« 


CMTTMPSl 04/08/81 3:57 PM 

ft *#♦**♦♦♦■•♦*#♦♦* ft •♦♦***♦♦* ♦•♦ftft'^ftw »»♦♦■»♦♦♦♦♦♦•»♦♦#♦*♦♦**♦♦*♦♦* ■ ftftftftftftftftft 


0lOfti»RUi4 ♦a;C'»TT -tPCl ( NCC- : , vOP £a 30K ) 

020 SU8»DUTI:.P On’’f’P(A,£»C.L..''» UMDI*M 

030 * This SwFRuUTISE P£KFf)pM«i the CON'PlEX matrix transpose 

040 * multiply CaATftE ftITM PmCH ^T'Er-SIONEO MXM AND WH£PE 

050 ft A IS *"XL 

060 ft 9 IS -XN 

070 * C IS LXK 

080 complex a C Oiv, ici •’) *C ( NC I “• ,N0 1 M) ♦SUM, ZERO 

090 OA'^A ZERO/ (0, ,0.) / 

lOO IF(^i.GT,..CI^') C>^Ll ERR5TP('CMTTMP»,1) 

no DO 200 I*l»L 

120 DO 200 j3l«N 

130 SU^aZERO 

140 CO 100 KalfH 

150 100 SUM*5UHftA(K,I )*B (K*J) 

160 200 C(I»J)aSUM 

170 RETuR!'! 

180 ENJ 
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010 *#RUU *a;CMTZ7CCl ( 'lCGC.CCREs3CO 
020 SUdROUTiVc C^'T^SO < A *M I M » 

030 * this 5USRCUTI.\E ZEROES TMFT 30PD£n ELE'^ENTS OF COMPLEX 

040 * 'ATPIX M .^hlCn IS 0 1 '■’E^S 1 0.4ED NDT'-XMOIM 

050 complex a (MDIM,nDIM) ♦ZE,?0 

060 data zero/ (0. *C.) / 

070 IF(M,(jT. -!Cr'l,aR,N.<3T. -iDI DCALL EP^STP ( ‘CMTZRO* .1) 

080 DO 100 lsl»f'i 

090 DO 100 jsr.^U.MOri 

100 100 A ( I »J) sZEPC 

no PC 2UC Is-'*U.40I‘' 

120 CO 200 JsnNCI't 

130 200 A { I »J) sZEPO 

140 PETURN 

150 END 


ORIGINAL PAGE IS 
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CMVMPYSl 


04 / 08/81 


3:57 P»<* 




oio*#puri 
020 
030 * 

040 * 

050 • 

060 * 

070 • 

080 » 

090 * 

100 • 

110 * 

120 * 

130 

140 

150 

160 

170 

130 

190 

200 100 
210 200 
220 
230 




*a;C'*V PY:l r:C'yO*COf''Es3^K. ) 

SUdPCOTI >c CKv.'’PY ( A,\, .LC 

this Sut.r»rUTIi‘iE ?eKPcs:‘'S t-ie complex matrix-vector multiply 

a A # V 

A IS ; a:. 

V IS ‘'XI 
IS •‘•Al 

A\D A,V»M ARE DP'E'.ilCi EC 
A (LCl!' •i.DI'^’) 

V(,-.DI* ) 
w ( ^*c I y ) 

I\ Tht CAlLI iG PRv^CQA 

COf'PLEx A (LCI.‘!.lOI^'> «v i I ') ( 'DIM) «2ER0»SUM 

data 2c90/ (0, «0, ) / 

IFC- AXO {•• ,f,) *QT ,LOI v.OR.fi.GT.r 0 1 m.qR .M.GT.MOIM) 

6 Call errStp t 'Cf'vvpY • « i ) 

DO 200 I=1.M 
SO'^sZEPC 

CO ICC 

SUM = Sl‘:*A ( I »J) *V ( j) 

,H I ) sS 
R c T (j R y 
£.\J 
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010»*RUN 

020 

030 * 

04*0 * 

050 ♦ 

060 * 

070 * 

080 * 

090 * 

100 » 

UO * 

120 * 

130 * 

UO 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2<»0 
250 * 

260 
270 
280 
290 
300 
310 
320 
330 
3A0 
350 
360 
370 
380 
390 
900 
910 


20U 


PARTITION OF 
THE AVERAGE 


<»s;CSYADjOI (:'0G0»C0RE=30K) 

S'JEROuT r.E C5Y AOj I A , I PS^ ♦LU) 

THIS SU&ROUTIuF PGFCES the ^;X^ UPOEP LEFT 

complex ■•-'atrix a tc se symmetric £y using 

OF THE COSKESPOmDI THE ELE’^ENT PAIRS 

IF ENABLED 6Y IFSV.liE.O A TEST IS HaOE ON THEIR OIFFERENCE 
AND IF AMY IS JUOGEO TOO LARGE THEN ARRAY IS PRINTED OR 
WRITTEN 

IFSY.EQ.O TESTImG IS 3YPASSED 
ifsy.ne.c testing is PERFCR'^ED 
lU.EG.C6 for bPIMT 
LU.ME.06 FOR ^PITE TO FILE 
NOTE THIS procedure STOPS ON TEST FAIL 
CO'^PLEX A (N.M) .hAlF.ZI .22«23 
DATA HALF/(,5.0,)/,EPSI/1,E-3/ 

IF<N,GT.M)CALL ERRSTP ( 'CSYADJ* .0) 

NMlaM-1 

IF(IFSY.£0.0)G0T0300 
DO 200 IsUMMl 
IPUUi 

DO 200 JsiPl.N 
21=A(I,J) 

Z2=A(J,I» 

Z3=HAlF*(ZUZ2) 

the FOLLOWING TEST IS SQMEWHAT ARjITRARY 
XaCA3S(Zl-Z2) /CAPSCZB) 
lFtX.GT.EPSI JG0T0500 
At I.J)=i3 
At J.I ) sZ3 
RETURN 


AN MXM 


300 DO 900 I=lfNMl 
IPUUl 

DO 900 jsIPl.N 
Z3=HALF**t A 1 1 .J) -»A t j. I ) ) 
A 1 1 »J) sZ3 
AtJ»l)sZ3 

return 

call CMTORT tA«N»-l,LU) 
CALL EWRSTPt’CTRADJ'.l) 
RETuR.-i 
END 


900 

500 
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OlO**RUfi *s?CVD!.>a.\QI (NCG0»C0PEs30K > 

020 SUtsRCJTr'.E CVCbA:: ( V ..i « ‘iw ,LU . .^/’.AREA ) 

030 * this SuOROUTliiE PRIMS OR WRITES POP DIAGNOSTIC PURPOSES 

OaO * The Ei-E''EMT5 of a CO.*-'PLEa vector in polar 06 FORM 

050 ♦ lU,EO,06 for print 

060 * LU.NE.06 FOP wRiTE TO FILE 

070 11 FOR'-'AT (<;FP,2) 

080 12 FOR'^ATI* ») 

COO COMPLEX V ,Z 

lOO Dl*’F'i5I0i- wKAHEA(.lk) 

no data 0EG/57.2957S0/ 

120 IF('-..uT,>-,OR. .GT.i:w)CALL ERRST^ ( •CVDSAfi* ♦!) 

130 DO 200 I = l»ri 

UO ZsV(I) 

150 A=CABS(Z) 

160 IFCA.GT. (0.) )GOTOI70 

170 lKAREA { I ) =-999.99 

180 '.-iK AREA (!♦(';) =0. 

190 GCT0200 

200 170 WKAREA(I)=20,*AL0Gir (A) 

210 .•;KAREAcnri)=0EQ*ATA'-2{AI!lAG(Z) .RE4L(Z) ) 

220 200 CONTr.L'E 

230 vjRITE(i_U»ll) (WKAKEAd) 

240 WRITE(LU. 11) (VvXAPEA ( !♦!.) »I = 1,\) 

250 wRITE(LLM2) 

260 return 

270 ENO 
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OlO»PRU^^ *3;CVECMPCI (\C<j0.C0Re = 30<J 

020 S'JdPC’JTI.'E CVEC‘’P(.4 ,C,V».UNDIv,ID) 

030 * this Sl:-SOLTI:.£ CC^PACES am I-VPUT COMPLEX VECTOR A 

0a>0 * ^ITh 4 PcrE'AEi.Cf. CCIPLEX VPCinp R WHOSE ELEMENT NUMERICAL 

050 * VALUES APE ESTAduISHED SY THE INITIAL EXECUTION 

060 * OF THIS SUBROUTINE 

070 10 format {* •) 

080 11 F0K'^AT(8F15.6) 

090 12 F0KVAT(443«<^15.fc) 

100 COi-'PLEX 2EP0.TE'-P 

UO complex (f.OIM) ,v (VCIM) 

120 DATA IFt_AG/0/.R2ER0/C./.2ER0/(0.,0.)/ 

130 IF( IFlAG.EQ.D 3QT02CC 

UO DO 120 I SUN 

150 120 RCDsACI) 

160 IFLASs], 

170 IF(.*i,EQ.MCr-l)G070200 

180 DO 150 Isf.*i,,\DI^ 

190 150 R(I)=R2ER0 

200 200 continue 

210 XMAXsRZERC 

220 DO 220 I SUM 

230 XaCASSCfid)) 

240 IF(X.EO.R2ERO>GCT021C 

250 TEMP=(A(I)-R(I))/X 

260 V(I)=T£'*P 

270 XaCA5S(TE'P) 

280 IF(X,3T.X,“AX) XMAX.sX 

290 G0T0220 

300 210 V(I)=Z£P.O 

310 220 CONTImuE 

320 CALL FCR?--FE 

330 PRINTU IDS' .10 

340 PRINT, 'Perturbed vector* 

350 CALL CVEPPT (A.N,UDIf'«06) 

360 PRINT 10 

370 PRINT. 'REFERENCE '/ECTOR* 

380 call CVEPFTCR.M.NOP .06) 

390 PRINT IP 

400 PRINT, 'NORMALIZED DIFFERENCE VECTOR' 

410 PRINT 10 

420 PRINT 11 , ( REAL(V(I) ) .Isl.N) 

430 PRINT 11. (AIMAG(V( I) ) .Isi.N) 

440 PRINT 10 

450 PRINT 12. 'MAXIMUM NOR MALIZED DIFFERENCE ELEMENTS' ,XMAX 

460 call FORmFE 

470 RETURN 

480 END 
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OlO*#RU ^4 
020 
030 * 

040 * 

050 * 

060 * 

070 * 

^80 11 

090 13 

100 
no 
120 
130 
1 40 


*s;CvEPCLCl (.'‘'CGO»CORES30K ) 

SUBPO'JTTlE CVEPOt. (V,r 

this SU2R0UTINE P9I iT5 CJP JPITES FOP 01 AGNOSTIC PURPOSES 
The £L£''‘E;JTS of a COf'PUEX VECTOR IN POLAR FORM 
LU.EQ.06 FOR PRr;T 
LU.NE.06 FOR ^RITE TO FILE 

MOTc IF N.GT.a PROBAcLT BEST TO PEOUCE 15 FIELD WIDTH 
F0RMAT(1?8E15.7) 

F0H‘'AT(9F15.7) 

CO'^'PLEX V (•■••) «2 

Cr^ENSIO'" «KAREA (M.^) 

data DEG/57. 2957-8/ .ZERC/0./ 

IF (.s.GT.N.CR. (f«->fs) .GT.N.%)CAlL EPPSTP { 'CVEPOL* . 1) 

DO 200 1 = 1 «N 


150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


ZsVU ) 

Xs-REAl(Z) 

YsAIXAGCZ) 

aKAPEA(I)=CAPS(Z) 

IF(A53(X) .GT. ZERO) GOTO 190 
IF (ASS (Y) .GT. ZERO) GOTO 190 
WKAREA( I*N) =ZEPO 
GOTQ200 

190 WKAREA (!■►».) =DEG*ATA,\2 ( Y , X ) 

200 continue ■ 

wRiTE(LJni) (h<area( I) nsn'i) 
V‘RITE(LUn3) (ViKAPEA ( [♦M) .I = NN) 
PETJRN 
END 
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0l0*#RUt'« **;CVEPRT3l C^OGO.COPEsJOk ) 

020 SUBS0UTI\E CVEPRT(V..-,*-;,uJ) 

030 ♦ this SUdfiObTlNt PSr'.TS 00 WRITES ^OP OIAGNOSTIC PURPOSES 

040 4 the ELE'"£'»T5 CP A CJ*'PLEX VECTOR 

050 * uJ*EC.06 FOR PRIMT 

060 * LJ,\E.06 FOR wRiTE tq filF 

070 * "CTE if N.CT.e , = ^-0PA3 l'< 5EST TO REDUCE 15 FIElO WIDTH 

080 ll FOR'^AT ( IPSclS.T) 

090 12 FORMAT(* •) 

100 CO'^PLEX V(V) 

no 1F(\.GT,‘1)CALL Ef^RSTP ( ‘CVEPRT* , 1 ) 

120 UR1TE(LU*U»( REALlv(J) ) 

130 WRITE (|.U*U) (AIHAG(V(J) ) «jsi«r;> 

140 wRITE(LU.l2) 

150 RETUR\ 

160 END 
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0lO*#RUM ♦=;C2YRECOL (-!CG0,C0 P£s30K) 

C20 SUtJROUT I -;E C2YRED ( 2 , Y , Z.'. ECO *Yr.FCn ♦.‘i ..‘<ECO *;JW ,WK AREA ) 

030 * This SOSRCUTIf'.E PEACqpms the "ATRIX order reduction of 

0<^0 * The 1 CONDUCTOR Z AND Y MATRICES (WHICH ARE THE UPPER 

050 * NXN PARTITION OF MX"1 RESPECTIVE ARRAYS) TO ((ECO EFFECTIVE 

060 * CONDUCTORS BASED THE ASSUMPTION THAT 'J-NECO CONDUCTORS 

070 * . AT ZERO POTENTIAL. THE RESULTIfiG REDUCED MATRICES 

080 * are PLACED IN THE uPPEP LEFT lECCXNECO PARTITION OF ARRAYS 

090 * zn£Cu»yneco each dimenSid mxm fcp programmi.-jg- 

100 * convenience and since this routine used once ahd for all* 

110 * WIcL USE FULi. iATRlX INVERSION ALTERNATIVE. SEE PCR APPENDIX A 

120 complex 2(h,N) *Y(i* :«l) .ZNECO(m*M) *Yr-.FCr (h* -D 

130 IFCN.GT.i'OCALi- ERR STP ( ’ CZYPED • * 1 ) 

UO CALL CMTCQP (Z.ZN£CC,r 

150 call CMTCOP(YtYr.ECO*i.»M) 

160 * note that since the UPPfR NECO*r.ECO PARTITION REPRESENTS 

170 * YNECC* JUST COPY wHOi_E N*N Y 'ATRIX 

180 IF(n.EQ.;;ECO) RETURN 

190 call CMTI‘;V{2i':£C0.N*i;»’i..v’KAREA) 

200 call C:-iTr.V(ZN£CC*NECO*r ECO.'t,W<AREA) 

210 return 

220 END 
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DPUFRWS2 


0^/00/81 
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####^^ * 
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020 
030 
040 » 
050 * 
060 * 
070 * 
080 * 
090 ♦ 
100 * 
no * 
120 ♦ 
130 ♦ 
140 ♦ 
150 * 
160 ♦ 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


• a;0PL'FRA'02 (M0G0 «CuRE = 30k; ) 

SUbROuTI'iE OPOFRw(Uuno»ISi». ULTYP»>iECO»MTOT*MUMF.NUMS*N£US»NEUF*. 

Z ♦ V »Zr t YO ♦ S ♦ S I • OL) 

This sobrcutike •'^a<es cc^vE^!IErT the ^ritimg to amd reading 

FROM DATA RECORD ASSOCIATED I TH A GiVEM UTYP IN 

Datafile dpuluk-n «hich has 3 E£n previously assigned a frn 
LU. THE CCNVEMF''CE REFERS TC THE ABILITY TO wPITE/READ 
The upper lEET .\ECCXNEC 0 =»ARTITICVS of matrices 
Or-ltNSICNtO '"X,( 

NOTE that ori READ THE Complex CC.''^Rml parameter neco is 
OC'TA ir.EO from the first part of the read A.’iD is a returned 
.variable value. C.': WRITE fiECO MUST BE PROVIDED. 

The DI'^ENSION m must be that used In the calling 
PROGP*'-* FOR matrices 
IRa..',E .1 for read 
IRa.ED.L for *^rite 

complex Z(*i.M) .ZO(M.r ) .S<m,m) ,51 ,OL<M) 
complex Y (M.M) .YL (M.f") 

IFUR.LE. 2 )CalL ERRSTT( ‘DouFRu* .IR nRW.M.NECO) 

IFdSw.eo.DQOTOlOO 

READCLU' IR)LTYP«.NECCi. 1T0T,^ :U"1F.NUM5.nFU5»NEUF. 

&{ ( zn .J) .I = 1 ..<ECC) .JSI.WECO) . 

0 ( < Y( I ,J) ♦Isl.NECO) «jsl. l£C 0 ) . 

6 ( tZO(I»J) ♦ 1 * 1 . NECO) .J=l.NECO) . 

£•( (YOd.j) .I*i.r;ECO) 0 * 1 . !ECO) . 

D( ( Sd.J) .Isl.NECO) .w = l. iECO) . 


270 S ( (51 d .j) . 1*1 .r, ECO 0=1 . (ECO) . 

280 i,(OLd) .1 = 1. 'iECO) 

290 RETjR ^ 

300 100 wR I TE ( LU M R ) LTYP .NECC .NTOT , iijMF .NUMS .MEUS .MEUF « 

310 Zd .J) .1*1 »NECn) 0*1 .NECO) . 

320 6(( Y (I , j) , 1 = 1 ,'iECO) .J=l .flECO) . 

330 (ZOd.J) .1*1. NECO) .J*1.NECD . 

340 D( (YOd .J) «I*l.'.£CC) «J*1 ..IF.CD) . 

350 6(( Sd .J) .1 = 1. NECO) .J*l. NECO) . 

360 6( (51 (I ,j) ,I = L♦^iECO) .J=l .MECO) . 

370 v(DL(H ,1 = 1. NECO) 

380 PETJR,, 

390 END 
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OlO*#RUN **;ERRSTP01 (.‘10G0»CCR£a30K) 

020 SUtJROUTIME ERRSTP ( ’JAf'E »NCOOE ) 

030 * this general stop P0UTI.4E PPPITS THF SIX CHARACTER 

0<»0 * name M.'iD INTEGER CCOZ 'ICOOE 

050 character MA;M£*6 

060 10 F0PWAT( 'STOPPED IN MC0DE='»l6) 

070 PRIM lO«iiAr*Ev-COD£ 

080 STOP 99<?Q 

090 END 


ORIONAL page IS 

^ miaiiTV 
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0lO**RUfi *a;E»RSTT0i (:;0u3 »C0 REs30k ) 

020 SU.iRO'jT: .f ?9KSTT(f'A,'>e«h.C0DE»I 1»I2»I3I 

030 * this G[!-.E'’4u stop pO'JTI <£ ORP'TS the SIX CHARACTER 

OaO * NA-e i-,c integer CG'^<- ncODE 

050 character NA^E*6 

060 10 FOR' AT( *5T0PPcl ^'COOEs • . 1 6 ♦ 3 1 1 1 ) 

070 PRl T U ,:'M,me,VC?DE«II»I2,I3 

OOO STOP 5^99 

090 • E.O 




filstpsi 


OlO 

020 * 
030 * 

0<^0 ♦ 
050 * 

060 * 
070 
080 
090 

100 6 

no 

120 


04/0!i/8l 3:59 PM 


SUBROUTP.E FIt-5T0P(‘,FlLE.ICUA.-.,If..J‘ «, -CHECK) 

0.') FtuE PE-^Cl THIS SOcROUTI\E PROVIDES A G£-)E9AL STOP UPCM 
EFWOR JETtCTIC^ 6£T,<EE:. OATA IM FILE AND EXPECTED VALUES, 

THIS SuSROUTI'jf »‘lLL =?E USED IM CCHPAPI iG HEADER INFORMATION 

nIth qth£a >etwork to assure tw/.t the proper file has been 
accessed. 

character*? .NFIlE. IOUA'; 

PRINT 10. NFiLt. nUAM. I'i.JN 

10 FO"‘;AT("STOPPED F(JP READ EPFOR Of FILE " .A9/"VAR I ABLE ".A9* 
" Should ?e ".la." 6 ut olantitv read is ".I8> 

STOP 'JCHECI^ 

EMO 


original page ® 

OF POOR QUALITY 
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0l0**RUf4 *«;0P'!V0 l 01 (^'0G0fC0l9E*30<) 

020 5U6RCJTIME QPwVCL ( Y ,E , S , V *M ASEA »NW) 

030 * TrilS SUESOUTLmE COf'iPUTES A'lD FCPMS THE TOTAL N ELC^-'ENT 

040 ♦ voltage vector £♦ GIVEN THAT THE t-AST N-H CURRENT ELEMENTS 

050 * OF THE '! ELt'-'ENENT CURRENT VECTOR APF ZERO* IE OPEN 

060 * CIRCUIT, and given THE «^IRST ELEMENTS OF THE “'I ELEMENT 

070 ♦ voltage vector e. a:,d the hxn admittance matrix y, all 

080 * vectors and matrices are assumed dimensioned NOIM or 

090 ♦ NOlMXiiDIH IN CAn.r'3 PROGRAM. 

100 ♦ The CO:iPUTATION FOLLOWS THE MODEL 

UO * 

120 * II«YU*EUY12*E2 E2s-Y22I*Y21*EI 

130 * 

UO * 0*Y2l*El*Y22*E2 I U ( Yl l-Y 12*Y22 I *Y2 I ) *E1 

150 * 

160 * note S ANO V ARE SCRATCH 

170 complex y(ndim.ndim) .e<noim) .zero 

180 complex SU'iDIM.NCI^') ,V(f.OIM) .ZSUM 

190 dimension WK area (MW) 

200 DATA ZERO/ (0. .0.) / 

210 IF{N.GT,.MDIH.CR.M,G£,M)CALL ERR5TP ( ’QPNVOL* .0) 

220 DO 200 <al.N-M 

230 Is<*M 

240 * first form VsY21*El 

250 ZSUMaZERO 

260 L'O 100 J»l«M 

270 100 ZSUVa2sU^ *Y(I .J)*E(J) 

280 V(<)sZ3UM 

290 * fiEXT FORM 5=Y22 

300 DO 200 LaUN-M 

310 jaL*M 

320 5(<.l.) aY(I .J) 

330 200 CONTINUE 

340 jaN-M 

350 CALL CMTINV (S.J.J.NOIM.WKAREA) 

360 » M 0 ?( CALCULATE E2. MOTE SaY22I. VaY21*El 

370 DO 400 lal.M-H 

380 ZSUMaZERC 

390 00 300 jal.N-M 

400 300 Z5UMaZ5U.M-S(I,J)*V{J) 

410 400 E(UM)aZSUM 

420 RETURN 

430 END 
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010*#RUN 
020 
030 * 

040 * 

050 * 

060 * 

070 * 

080 * 

090 * 

100 * 

110 * 

120 * 

130 * 

UO * 

150 * 

160 
170 
180 
190 
200 
210 • 

220 

230 

240 

250 

260 

270 IOC 
?30 
290 
300 * 

310 

320 

330 

340 

350 200 

360 300 

370 * 

380 

390 

400 

410 

420 400 

430 500 

440 
450 


*;0PTADV0l <nCGL*C0RE*30!«: ) 

bu»9 OUT I i .£ OPT ( A . a « T , , u .‘I , . JD r » wx Ap E A , NW ) 

THr, SU0P0UTI;,£ D£TSR -I;'ES TH£ '-’X * DRIVING POINT ADMITTANCE 
matrix d* A.'.O THE VOLTAGE TRANSFER MATRIX T ASSOCIATED 

WITH A ..Xn AO^ITTAi-CE lATRiX ..HICH i-tAS ITS LAST N-M TERMINALS 
OPE'l CIPCUITED. All r'ATPICES APE ASSUMED DIMEf:SIOMED NDIMXNOIM 
IM Tf'E calling POPGRA'.-, 

the computation^ is based on the following partition of a 



'4 

N-M 



YU 

Y12 

Tr-Y22I*Y2l 


Y21 

Y22 

2aYU-Y12*Y22HY21aYli*Y12*T 


complex a (><DIM»:N0IM) ♦3CtDr«»;iDr’) «T{NDIM,NDIM) 
complex sum, zero 

DI mens I ON WKAREA(MH) 
data zero/ (0.«C.) / 

lFl'!,GT.»CI:-',Oft.'’,GE.N) call E®RSTT ( • OPT ADM * , 0 » W ,N , MD IM ) 
FIRST USE 3 temporarily TO CPTAIN B=Y22I 
DO ICO X s 1 « N-M 

DO 100 Lal»N-M 
J*L*M 

6(<»L) sA ( I »J) 

CONTINUE 

LsN-M 

call Cf'iT I I'i V ( ci , L , L , NC I M » «< aR E A ) 

NEXT FCRI-’ T = -Y22I*-Y21 
DO 300 IsI»L 
DO 300 Jal,M 
SUMaZEftO 
DO 200 <al,L 
5U'1xSuM-B( I ,K) *A (<•»!, J) 

T( I fj) aSU?’ 

NEXT FOFV. BaYl.«.Yl2*T 
DO 500 Ial,(>« 

00 500 jalfM 
5 UMsA( I ,J) 

DO 400 KaI*L 

SUMxSUfU A ( I ,L ) #T ( K ♦ J } 

C( 1 «J) aSUM 

RE'^URn 

END 
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020 
030 * 

040 * 

050 * 

060 * 

070 * 

oao * 

090 * 

100 ♦ 

ILO * 

120 * 

130 * 

140 * 

150 * 

160 * 

170 * 

lao * 

190 * 

20^ * 

210 

220 

230 25 

240 
250 
260 
270 
280 

290 1 

300 

310 

320 ' 2 

330 

340 

350 

360 

370 

380 3 

390 

400 

410 

420 

430 

440 

450 

460 

470 4 

460 

490 20 


s;P5QSEJC2l .CuO.COPEs3QK) 

SUiPOJTI'.E =:;OSEG(lNcCSA*rNSEOV»ISTAK,riMAX .N»M,JR0CT) 

the ou~pcSc of this subroutine is to construct the 
process: . '3 SEQUENCE VECTOR INSEQV USI'IG THE MODE 
LOGICAL CC*.-.eCTION AND STATUS ARRAY INLCSA, THE 
SU?9 juTI.- t ALSO COMPUTES THE LEVEL OF EACH NODE IN 
Thf =l‘.^r»> TREE WITH THE NODE CONNECTED TO THE 
SOURCE 2FI'.G AT LEVEL ZERO, THE LEVEL ONLY CHANGES 
ON EACH -.'.ranch, istak is a tempcrapy stack vector 

I'LCSi' (I«l> a node index (REDUNnA^•T CHECK) 
r ILCSA (I»2) a where FROM MODE (PARENT MOOE)-IPAP 

INLCSA (1,3) a WHERE TO NODE 1 - LEFTSON 

INLCSA (1,4) a WHERF. TO NODE 2 - RIGHTSON 

I .LCSA (1,5) a LEVEL OF NODE 


IN IS USED AS AN INDEX WHICH FILLS INSEQV FROM 
TCP 

N IS a"d‘J!'SY variable on INPUT WHICH RETURNS NUMBER OF NODES 
JPOCT IS FIRST NODE FROM SOURCE 
I = STACK Index 

DIMENSION I',uC5A(MMAX,H) , INSEQV ( NVAX ) , ISTAK (NMAX) 

DC 25 I a I , nmAX 
inLCSA(I,5) a -10 
I = 0 

r.ODE = J = CuT 
IMLCSA C.CDc,5) = 0 

iNseovd) = nudl 


IF 


- c 

( I ilCSA ( .■>LE,3) .EO.O) 


GO TO 2 


I a I > I 

I5TA<(I) a I';lCSA(NCCE,3) 
node = ii- LC5A(‘iODE,4) 

if(.'iode.ne.o) go to 3 

N a IN - 1 
IF (UE'J.C) return 
. iODE = I STAk. ( I ) 

I - I-l 

I JSEOV ( 1 ,':) a mode 

IF ( I.,lCSA(.,O0E,1) ,lT, 0) GC TO 23 
If. a I-„i 

I OAR s INLCSA (.NODE, 2 ) 

IF< INLCSA ( IPAH, 5 ) .LT. 0 ) GO TO 20 
IS s >IN 0 (I-ilCSa(IPAP, 3 ) ,INLC 5 A(IPAR» 4 ) ) 
IF (IS .EG. 0 ) GO TO 4 
IMLC 5 A(NCCE, 5 ) a InlCSA( 1 PAR, 5 ) ♦ I 


GO TO I 
INLCSA (NCCE, 5) 
GO T3 I 

«RlTE(42,l00l) 


INlCSA (IPaR,5) 
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IPAP 


PqOSEQSZ 


*>A<SE 2 


500 lOOl 
510 

520 23 

530 1002 
540 
550 


FOP'-'AT { "•.ET.vOR< Cor-'FIGUR atig:^ 
STOP 

aRITE(^2«10C2) '.GDc 
FORVATC'iCOE .\uvsec ''.IS*” IS 
STOP 


t'!0 


;.?POP"/-NOOE ”»I6«"N0T 0EPINEO"/*P«?O<3f 
MOT 0£Pr'.ED"/"PP0GRAM ABORTS") 


original 


2-48 



ORIGINAL PAGE IS 
OF POOR QUALITY 

»•****«*•#*«««**»«•»***«**•****#« 
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OlO^^RU.M '**;RvEPRT 01 (‘JCOO»C0Re»3OK) 

020 SUdPQUTI'iE RVEPRT(V*r «;-ULJ) 

030 * This SuSHOUri.'tE PRI <rs OR .WRITES FOR DIAGNOSTIC PURPOSES 

040 * The first s elements of a real vector with dimension m 

OSO » LU.EC.06 for print 

060 * Lj.NE.06 for MRITE TO FIlE 

C/O * mote if n.cT.9 PRQSAQlY rest to reduce 13 field width 

080 U F0«VAT( 1P9E13.5) 

090 dimension V5M) 

100 IF(N.GT.’^'>CAll ERRSTPCRVEPRT'.U 

110 ARlTE(LU«in (V(J) 

uo return 

130 END 
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TRANA0S4 04/08/81 4100 PM 


OlO*iRU^S *s; TRAi.A0C4 ( sCGO «C3PE = 30K » 

020 SUBSOUTIME TR/\.iAD ( Y « I FRE * I TTY ,LUTP * TP AwF I ,TRAMAY tNDIM ,MOIM) 

030 * this VERSICs jF TRANAC READS A REVISEO STRUCTURE FOR THE 

OAO * Toa.-.SFORMER file TRA.^FI, THE r:E% STRUCTURE COflSISTS OF 

050 * NON-Ll'i£ ".U'^ctREC AECCROS EACH wITH TH£ FORMAT 

060 * IFRE I tty A-^ th 

070 » .'iH£PE 

080 * IFPEsTWO DIGIT FPEOuEkCY CODE 

090 » ITTy=cke,T^C-,ThR£E DIGIT TRAt SFCRF-ER TYOE CODE 

100 * A.V =AC'‘ITTi.'iC£ A-FlITUDE P* DB 

110 * TH =AU'.itTa.;CE angle IT DEOKEES 

120 * T;i£ a- field S^■^:ULD r-EGr; IN CCLUNN 9 OR greater to FACILITATE 

130 * TOPS EDITOR SCkTiNG (nhich IS FCR USER CONVENIENCE ONLY) 

140 * T-E COrPLEX -^ATRIv TC. i.NA Y { L .< ) ^.'ILL CO'iTAIN COMPLEX SCALAR 

15C * PmASOR ADMITTmNCES for EACH (DEFPEC) COMSINATION OF IFREQ 

160 * And I TTY. FDR ALL UNDEFINED CASES THE VALUE YBAD WILL BE 

170 * USED AND A WARNING DR I ITEO TO TERMINAL FIVE TIMES MAXIMUM. 

180 * The COLUMNS OF TPANAY JILL CORRESPC^:D TO (THRU A DIRECTORY 

190 * vector JCDl) ITTY, S! 'ILARLY the rows DF TPANAY /liiLL 

200 * CORRESPOND TO (THRU m DIRECTORY VECTOR IROW) IFREC. 

210 * 

220 * directory vectors jCOL ANq irow ARE USED TO SAVE CORE» I.E. 

230 ♦ AMY OiNE USER wiLL OE IfiTERESTED IN ONLY RELATIVELY SMALL 

240 * NJYBER of distinct FPEOuENCY codes. similarly ''OR ITTY 

250 * 50 THAT TRAMAY CA . 3£ ^^YEl5I0^ED MUCH SMALLER USING DIRECTORY 

260 * VECTORS Than lSING DIRECT AC0RE5SU.G VIA IFREO AND ITTY 

270 * 

280 * DIRECTORY VECTORS ARE DIMENSIONED SUCH THAT 

290 * IFRE.LE, IMAX 

300 * ITTY. lE. UMAX 

310 10 FORMAT(V) 

320 complex Y.TOANAY(NDir».' DI'-') .YEAD 

330 DIMENSIOiN IROn (99) »JC0L (16T) 

340 character r;AKE*fr .TPA* FI »9 

350 DATA PMD/1.7453293E-2/.lFLG/l/.i'iAME/'TRANAD*/ 

360 DATA lMAX/99/,JMAX/ie7/..‘JCCUNT/l/»YflAD/ ( 1 . E-30 » 1 .E-30 ) / 

370 IF(IFlG.EG.0)GOT02O0 

380 ♦ ON FIRST PASS SET'jP DIRECTORY VECTORS AND TRANAY 

390 IFLGsO 

400 CALL QPE'SFCLUTR.TPANFI.ISTAT.I.O.I) 

410 IF( ISTAT.EO.O)GOT01CO 

420 PRINT, *Ui . able TG QPEN F I LE= * *TR ANF I 

430. CALL ERRSTT(NAME»0W5TAT,IFRE*ITTY) 

440 100 CONTINUE 

450 DO 102 IslflMAX 

460 102 IROw(I)sQ 

470 DO 104 J=l,JMAX 

480 i04 JCOlIJ)=0 

490 DO 106 Isl»NDIM 
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TRANA0S4 PAGE 2 

500 uO 106 jaltMDIM 

510 106 TRAriAY ( I ,J) sYbAD 

520 iRO'^iSl 

530 I iCOL a L 

540 120 REA0(LUT««L0»E^L'sl50) I 

550 IF ( I ,GT. I‘ AX.oR.J.OT,J^AX)CAlL EPRSTT ( NAME* L « I » J » JMAX ) 

560 IF(TRCa(I) .GT.0)G0TC130 

570 inOvi 1 I ) a .PCW 

580 I F ( •rao \ . GT • ,.D I ) C ALi_ ER R 5 TT ( N A , 2 ,MfiOw * MO I M , I) 

590 MROft a!>;pQ .■, > 1 

600 130 COi'tTlMuE 

610 IFUCOl(J) •GT.OGOTOIAO 

620 JCOL{J) = :COL 

630 lF(r,COL.GT.MOI'»)CALi_ ERRSTT ( NA’-IE , 3 » .COL * MDI*'' ♦ J ) 

640 i.COLa .CCl^I 

650 lAO COMTT.jE 

660 Af^aLO.** (.05*AM) 

670 THaRAO*TH 

680 TRANAY ( IRC'ft' n ) «JCCL{J) ) aC.MPLX ( A i*COS ( TH ) *AM*SIN(TH) ) 

690 0OT0120 

700 150 call DETACh(LUTR*l5TAT*) 

710 200 C0MTL\L'E 

720 IF( IFRE.oT.IMAX.CR. I TT Y .GT, jMAX ) :ALL FR°STT ( r4A.-iE .4 « I FRE « I TTY , JMAX) 

730 MROwalPO.-.' C IFRE) 

740 ;COL=jCCl( ITTY) 

750 IF(r'50vj.£G.n.0R..‘;CCL.E0.0)CALL FRF 5TT ( NAME . 5 . 1 FR£ , I 'TY ,MCOL ) 

760 YaTRAf.AY (MRCW.NCOL) 

770 IF (Y.ME.YbAD.QR. .COU'lT .GT . 5 ) PcTUPM 

780 HRIMT. 'V^ARMriG* U5K0 U^DEF^•|E0 TRAMSFOPMER DATA* 

790 ..COUNTaLCCUMT^l 

800 RETjON 

810 EMO 
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’««« 


0lO*#PUN •=;YA0CECGi (*;OiiO»CO«ts10K) 

020 SUa^OUTPlE YADC-EC(Y,\,.'*,LOUT) 

030 * Tmis SjHROUTiriE OECO'-tPOSES A 3x3 OR 4*4 ANALYTIC 'MATRIX 

04 O * INTO discrete Physical ele'ients. thf conductors are designated 

050 * l«2»3»'' and for the 4X4 case ThE GPOUND IS DEMOTED 0Y G 

060 * FOR the 3x3 delta CONMECTFO system aDhITTAMCE ViN,Y 2N.Y3N ARE 

070 ♦ TO I'.TERPkETEO AS YIG»Y2G*Y3G 

080 * 

090 * MOTE ThmT for TME 3X3 CaSE C'.i-Y UPPER TRIANGE ELEMENTS 

100 * are used. kRSITPhPIlY for COOING CnN/ENIENCE« ALL ELEMENTS 

110 * OF Y AKE USED I.l -pHE 4X4 CASE. NATURALLY IF Y IS EXACTLY 

120 * symmetric no L.-'CENTAIiilTlES APE TVCLVED. 

130 complex Y (M,m) ,YSUa»(4) .ZERO.SUM 

140 data zERO/(o,.n.) / 

150 IF(M,GT.f^0R.N.GT.4.CR.N.LT.3)CALL EPPSTP ( • Y ADOEC * »N ) 

160 10 FOWMATC 1P6E15.7) 

170 11 FORMAT (6X. 'YIN* . 1 2X . * Y 1 2 ' . 1 2 X . • Y 1 3 • . 12X . ' Y2N • . 1 2X . • Y23 * * 12X « * Y3N* 1 

180 12 F0WMAT(6X.*Y1G‘«12X.*Y2G',.12X.*Y3G*.12X.*YNG») 

190 13 FORyatC •) 

200 call FPARA'M 1 . 120) 

210 vtRITE(lCuT.II) 

220 IF<N,EQ.4)GCTC200 

230 WRITE(L0UT»10)REAL (Y ( 1. 1) *Y( 1,2) -pY ( 1 ,3) ) ,-REAL(Y( I , 2) ) , 

240 S -REAl(Y ( 1 , 3) ) ,REAL( Y ( 1 ,2) *Y (2,2) *Y (2«_, ) ♦ 

250 S -real (Y (2,3) ) ,REAL (Y ( 1 ,3) *Y (2,3) ♦Y (3,3) ) 

260 write (LOJT, 1C) AI’''AG(Y { l,l)>Y(l,2)*Y(l,3)) ,-AlHAG(Y ( 1,2)) , 

270 o -AIHAG( Y ( 1 ,3) ) ,AI 1AG(Y ( 1,2) ♦Y(2,2) *Y (2,3) ) • 

280 S -A[haG(Y ( 2 ,3) ) ,ArMMC(Y ( I ,3) *Y (2 ,3) -Y (3,3) ) 

290 WRITE (LOUT *13) 

300 RETjRN 

310 200 continue 

320 WRITE (LOUT, 10) -REAL (Y (1 ,4) ) ,-R£AL ( Y ( I , 2 ) ) t-REAL (Y( 1 ,3) ) « 

330 6 -SEAL(Y(2,4) ) ,-PEAL(Y(2,3) ) ,-REAL(Y(3,4) ) 

340 N'RITE(L0UT*10)-AImAG(Y( 1,4)) ,-AlMAG(Y( 1,2)) , -A I MAG ( Y ( 1 , 3 ) ) * 

350 S -AIMAG(Y(2*4) ) ,-AI'’AG(Y(2,3) ) ,-AlMAG(Y(3*4) ) 

360 «RITE(LCUT,13) 

370 DO 400 1*1,4 

380 SOMsZERC 

390 DO 30C J=l,4 

400 300 SUMaSUM^Y { I ,J) 

410 400 YSUM(I)rSUH 

420 write (LOUT, 12) 

430 rtRITE(LCUT,lO) ( REAL ( YSU'I ( I ) ) , I a 1 ,4) 

440 WRITE (lout *10) (AIMAG( Y5UM( I) ) , 1*1 ,4) 

450 WRITE(L0UT»13) 

460 return 

470 END 


2-52 


ORIGINAL PAGE lU 
OF POOR QUALITY 

»#*««•»•«*«*«•**•»*•««•*•«•«*•*«•«««**•**•*•*«>•****••*••«*•**«****•«««#'»♦ 

YAOMITSI 04/08/81 4:00 PM 


010*»P‘J<‘4 >a?YAO.!lTOl (\CCjJ*CDPEs30Ii ) 

020 SU^i^OUTr.E YA:::-'IT(YU .Y22.Y33,Y12«Y23«Y13. 

030 i Ylk,Y2N,Y3'N,Y^ N»Y.YP»N».'4* IOPT,LU» IDIA) 

040 * TMIS SbEROUTI\e COMPUTES rOR rCPTsO, THE analytic complex 

050 * ADhITTAMCE Y 2lvEi; the physical elements* and for lOPTal 

060 • PE^Fj^r-S THE I WEFSE CPERATIO,. OF OECO^OOSIMG AN ANALYTIC 

070 * CO‘'P(_E.^ 'MATRIX ir.TO ITS PHYSICAL COVPONEfITS. AlSO FOR THIS 

080 ♦ LATTER CASE CHECKS TO ‘'AKE S'J^E EACH PHYSICAL CQMPC.NENT 

090 4 HAS POSITIVE real PART 

100 4 

110 4 THIS SUHRGUTI.NE KEYS CN Na3 0= •;*<♦ POP CuRRESPONO I NG LOGIC 

120 10 FOR '‘AT ( •ELEMpr;T HaS NEGATIVE REAL PART*/ 

130 A •YII*Y22*Y33*Y12»Y23.Y13,YIN,Y2H,Y3M,YMN*) 

140 U F0«^’ATnP6Ell.3) 

150 12 FOP'*AT( •'■^EALI2AEILITY STATUSa *.I3) 

160 Olf'ENSICN YR(H 

170 CHAPACTER46 NAME 

180 complex Y(H,n*.) ♦YU.Y22»Y33*Y12 , Y2 3 . Y 1 3 «Y I N, Y2N , Y3.N . YNN ,2ER0 

190 DATA ZERO/ (0, *0, ) /%R2ER0/O./ .NA-'E/ 'YADMIT*/ 

200 IF(':,lT.3*OR,\.6T,M.CR.'..GT,l)CALu ERPSTT ( NAME »5 *N . m , iqpt) 

210 IF(IOPT.iiE.O)GOT02CO 

220 4 PERFjRf' PHYSICAL TO ANALYTIC 

230 Y(Ul)sYll*Yl2*Yl3*YlN 

240 Y(2t2)sTi?«.Y22TY23*-Y2N 

250 Y(3«3)sYl3*Y23*-Y33-»Y3N 

260 Y(U2)s-Yl2 

270 Y{2,l)=-Y12 

280 Y(1.3)s-yi3 

290 Y<3,l)#-Yl3 

300 Y(2,3)=-Y23 

310 Y(3*2)s-Y23 

320 lF(N,E0*3)RETURi'! 

330 Y(1.4)s-Yll 

340 Y(4,l)s-Yll 

350 Y(2«4)s-y22 

360 YI4,2)s-Y22 

370 Y(3.4)r-Y33 

380 Y(4,3)s-Yi, 

390 Y(4,4) 3Yll*Y22*Y33*Yf.N 

400 return 

410 200 CONTINUE 

420 call CSYAPJ(Y.N»M,IOIA»lU) 

430 CALL YREALI (Y,YR,N.M.LU,IDIA,ISTAT) 

440 *RITE(LU*I2) ISTAT 

450 4 PERFORM analytic TO PHYSICAL 

460 Y12a-Y(l,2» 

470 Y13x-Y(1,3) 

480 Y73a-Y<2»3) 

490 V11*Y( 1,1)-Y12-Y13 
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500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


V22sY(2.2)-Y23-Yl2 

Y33sY(3.3)-Yl3-Y23 

YNNsZESO 

Yriszspo 

Y2iN*ZERC 

Y3iN=ZER0 

IF<9tAL (Y12) .uT.A2ERC)f,oTC3C0 
IF(R£AU(Y13) ,LT,RZERC)GCT3300 
IF(REAL(Y23) •lT.RZERC)GCT0300 
IF(REAl(Y11) .lT.R2ERG)Cj0T0300 
IF(REAl(Y22) ,lT,RZEKC)GOT0300 
IF(REAI. (Y33) .LT .R2EP0 ) GCTOSOO 
IF(N,£v;*3>RETUPN 
Ylls-Y ( I ,4) 

Y22S-Y (2*4) 

Y33=-Y (3,4) 

YlNsY(l,l)-Yl2-Yl5-YU 
Y2NSY (2»2) -Y23-Y12->22 
Y3NsY(3i3)-Y13-Y23-Y33 
YN.'isY(4»4)-Yll-Y22-Y33 
IF(REAL(Y11) ,lT,RZEPO)GOT0300 
IF(REAL(Y22) ,lT,R2EPO)GOTO3O0 
IF(REAu(Y33) .lT,R2EPO)GCT0300 
IF(PEAL(Y1N) ,lT*R2ERC)GOT0300 
lF(PEAL(Y2ro .Lt.R2EPC)GCTC300 
IF{REAL(Y3f-;) .LT,r<2ERC)GCT0300 
IF(REAL(YNN) .LT,RZERG)GCT0300 
RET'JRiM 

300 WRITE(LJ»10) 

wR!TE(LU ,11 ) YU »Y22,Y33«Y12 .Y23»Y13,Y1'4,Y2N,Y3N»YNN 
call ERP5TT(NAME»4»N<.'UI0PT) 

STOP 0300 
END 
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010*#RU’I •s; YA0:if;UCL {.'i0G0»C0REs30K) 

020 SUS^CUTr.E YADVMU(Y,Yf>|,f,,M) 

030 * This SuuROUTI'IE converts an MXN complex matrix REPRESENTIMG 

040 * A perfectly grounded •• terminal admittance riTO Afl N^IXN*-! 

050 * ('i.lt.i-m :on-perfectly groumoec admittance representation 

060 * ACCDPDI'.G to FIGURE I-l OF RCR APPENDIX I, 

070 * NOTE that for THIS SUEROUTINE* ANALYTIC ELEMENTS ARE USED 

080 complex Y (.'• ,.'i) ,YN*SUM«SUMN,2ER0 

090 DATA ZE^C/ (U. «0.) / 

100 IF(N.GF. UCAU. t-^RSTTI 'YAOHNU* »0.;i,'%0) 

110 r,Pl=N^l 

120 SUMNsZEPj 

130 DO 200 IslfN 

140 SUMsZERO 

150 . DO 100 j=l *\ 

160 100 SUMsSUM^Y ( I »J) 

170 Y ( r«NPl ) s-SUM 

180 Y (NPl ,I ) s-SUM 

190 200 SUM\s3U'-‘i^SUM 

200 Y (NPl sSuy.'.|+YM 

210 RETURN 

220 END 
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0l0*i#R'JN ^s;Yt^EAuI0l(.'.0G0»CCRE»30K) 

020 SUtjsOUTr.E YFEA|_I (Y,YR.',«M,LU.IDrA,IST4T) 

030 » This SuefvOUTir.E CHfc-as a specified cofplex admittance y 

040 • I’c cetepmi'.e if it is Physically realizable -(Ith 

050 * respect to having a positive definite peal 

060 » matrix, the vETHOD of PRICIPAL ■•Ui'inqs IS USED TO TEST 

070 * POSITIVE peal. 

080 » -lOTE THIS 5L'5P,0UTIi>,£ US£S OLOTSLIB PQUTIilE 

090 * DETE (YR TO evaluate DETEPM I M»VjTS 

100 complex Y(i'.;i? 

no DIMENSION YR(N,h, 

120 data R2ER0/C,/ 

130 10 FOM-aT{»PkI NCIPAl Mi'.ORniZ,' 5*.1PEI?^4) 

no ' IF(.\.GT.?’)Call EPRSTPCYREALinC) 

150 ISTATsO 

160 DO 200 <rn.N 

170 DO lOO 1 = 1*.“! 

180 DO 100 J=1*N 

190 100 YR ( I »J) sREAlI Y ( I ,J) ) 

200 X=0ETE(YR,K.M) 

210 IF(X.GT.R2ERO)GOT020C 

220 ISTATrl 

230 IF( lOlA.ME.O) «RITE(LUnO)K,X 

240 200 continue 

250 PETjRi'; 

260 END 
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OlO*»RUa ♦«;YTRA,-»TQ2 (.'iCCiO,CCSE*3Q(a 


020 



SJ 3 R 0 UTI\e YTRA>'T(Y»YT,I?HSE«NCI''M 

030 

* 


This 5uaHouTi\e expands a scalar complex transformer 

040 

» 


OR I VINO POINT admittance I iTC A» ADMITTANCE MATRIX 

050 

* 


^ITh a format .\HICH depends on how the TRANSFORMER 

060 

# 


IS CONNECTED AS INCICATeD dY ThE PARAMETER IPHSE^ 

070 

» 


NOTE: ASSUMES CONSISTAflCY OF IFHSE AMO MUMF 

080 

• 


ChECxE: In CAluING RRCQRAM 

090 



CO*^'Pu£X Y.2£P0«YT (\DIM,,‘:DIM) 

100 



data 2 £P0/ (C.Otr.O) / 

llO 



t'O 1 C Ial,HDlM 

120 



DO 10 jsl.NOIM 

130 



YT(I,jl«2ER0 

140 


10 

continue 

150 



IPHSM*IPhSE 

16C 



IFUPHSM.EQ.O) IPHSMsl 

170 



IP ( IPhsm.GT.3)GCT020 

160 



YT(IPhSM»IPHSM)=Y 

190 



return 

200 


20 

J#IPHSM/2-1 

210 



K=*^CD( { IPHSM-J*!) ,3) ♦! 

220 

• 


the aeove logic establishes the following 

230 

* 


IPhS-* j < 

240 

• 


'4 12 

250 

* 


5 1 3 

260 

» 


6 2 3 

270 

• 


7 2 1 

280 

* 


6 3 1 

290 

* 


9 3 2 

300 



YT ( JO) sY 

310 



YT(<»K)sY 

320 



YT( J»<) s-Y 

330 



YTU«J) s-Y 

340 



PETURf. 

350 



END 
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OlC**RUN 
020 
030 * 

0<t0 ♦ 

050 * 

060 * 

070 * 

080 * 

090 * 

100 * 
no * 

120 * 

130 * 

uo * 

150 * 

160 ♦ 

170 * 

180 * 

190 • 

200 
210 
220 
230 
240 
250 
260 * 

270 * 

280 

290 


♦»; YT9A,iP02 {MOQC»COR£330K) 

SUy90UTr!£ YTRANP(YI\,f'SV«L»OLOAD.ITT,LTpAN) 

this £jbrouti.\e calculates the scalar CO-'PLEX input 
AO^ITTANCE t yin, and PRIMARY ‘I'O SECONDARY VOLTAGE 
TRA.'iSFEP RATIO* PSVRL. FOP A SINGLE OMASE 
UISTPISUTION TRANSF0F“£R. IT IS TO 3E USED IN 
COWJoNCTlOM with a RA.VOCM 3INARY l.ATAFILE DATRANIJ 
CONTAINING the ALGE3PAIC -nDEL PARAMETERS AS 
developed 3Y prof. J.T.QAJJAR I^ DEC. 1979 
FOR details see *'E'0 REPORT O'* TRANSFORMER MODELS 
YL sT'aICE Lirx TO LINE SECC*iO/'RY LOAD ADMITTANCE 
dloadsFractio.nal pepu-nit complex load 
Z ll sPRIMARY AO.'MTTANCE with secooary open circuit 
PSvROsPRI'MARY to secondary voltage patio open circuit 
PSvRlsPRI.YAPY to secondary voltage ratio with load 
ITT sTRANSFORMES I OE iT I F ICAT ION NUMBER 
LTRANsFRN for transformer DATRAi.U file 
2A,ZBsN0T USED FOR NU// 

I Du*'* sNOT USED FOR NOW 

COMPLEX Yin,YL»Vll ♦Y12*Y22*Y23*ZI 1 ,7.A ,ZB *PSVRO ,PSVRL *QLOA0 
READ(LTRAf.' ITT^l) I ,P< VA . I DUM , Y 1 1 , Y 12 , Y22 « Y23 *21 1 * P5VR0 *7.A ,ZB 
I F (I,. NE, ITT) CALL FIlSTO (MTRAN, ‘RECORD* , ITT* 1 . 101 10) 
YL*OLOAD*FXVA/28,3 
P5VRL=P5V?0*Y12/ <Y12-PSVRC»YL) 

YlMsZll>YL*<YLl-Zll) / <Y l*Y22-Y23) 

ALTERVATE FOR*'ULATIOr. 

YINs211-YL»<Y11-Z11)*PSV»L/Y12 

oETjRN 

END 


UKlVili^AL PAGE IS 
OF POOR QUALITY 


ORIGINAL PAGE IS 
OF POOR QUALITY 


*****«*»«*#*r'*»***^*«ft****-**#««*W*«-**»«***#**«##»«*«**<»***«**«#««*«*^HH»*' 

ZPL0TM51 O^t/Od/ei 4:01 PM 


0010 

0020 

0030 


►fSUiH »a;ZPLOTMCl (''iC30»C0!5f:»30<) 

SU6R3vjTriE ZPlOT'H ic» ;p» 'V.A»N0I'^« •■'Orvt, I XC* IYC« IT! «Xl»X2. 

& flXCf'4YC«MTI .Y1 *Y2) 

Subroutine Gcnepates a zeta plot file with name rrpltijk 
: UK 15 three DiaiT 10. this file will plot m curves* 

;SPO;.OINU TO THE CULUHf'S 2 THRtj Ul OF R£AL ARRAY, A, 


00^0 

• 

TMI 

0050 

* 

« HE' 

0060 

• 

CORi 

0070 

* 

VS ; 

0080 

• 


0090 

» 

li 

OlOO 

* 


OLIO 

* 


0120 

• 

ID 

0 30 

• 

••'V 

0i40 

# 

.'.P 

0150 

• 

Nor 

0160 

ft 

••'Dr 

0170 

ft 

IXC 

0180 

ft 

lYC 

0190 

ft 

ITI 

0200 

ft 

NXC 

0210 

ft 

NYC 

0220 

ft 

NT I 

0221 

ft 

XI 

0222 

ft 

X2 

0223 

ft 

Yl 

0224 

ft 

Y2 

0230 

ft 



OEPENDAHT VMRAnLE COfiTAI’iCD Irj COLUMN 1 OF A 


defendant 


variable 

variable 


ASSUMED 

ASSUMED 


TO 

TO 


LIE 

LIE 


IN 

IN 


RANGE 

range 


(XI, X2) 
(Yl ,Y2) 


Case IDENTIFICATION 
iUHBER OF dependant 

number op points on 

ROW dimension of a 
CCL-JHM DIMENSIP:; OF 

character Variable 


numee^-thpep digits 

VARIABLE^ 

ABCISSA 


character 

character 

N'JI-.JER OF 

.number of 
number of 

ABCISSA 
AECISSA 
ORDI? ATE 

ordinate 


C0NT.'»IM':G ABCISSA 

variable CO.NTAIM'.G ordinate 
variable COflTfilM'.G TITLE 
characters in xcv 
characters in ycv 
characters in iti 
LOWER LIMIT.phySICAL UNITS 
upper Lr*!T-PHYSrCAL U.NITS 


LEGEND 

LEGE.ND 


Lr*!T-PHYSrCAL 
LCaER Ll;UT-PHYSICAL UNITS 
UPPER LIMIT-PHYSICAL UNITS 


02<*0 DIMENSIO.N A (i^.DI•^V':^') , IV (3) 

0250 character file? *9,IXC*30, Ivc*30, ITI*30,IC.N0»3,NDATE*8 

0260 data ■Xl/8.0/,AYL/6,0/,Iv/2»A,5/,X5IG/1,E20/ 

0270 11 FORyai {'RRPlT',13,'5') 

0280 12 F0P'-aT(I3) 

0281 13 F0R*1AT( •vJARnlNC IK ZPLCYN , • ,A2 * ' VALUES OUT OF RANGE*) 

0290 XPF(X)s(X-XC) /XF 

0300 YPF(Y) s(Y-YO) /YF 

0310 lP(MV.LT,MDIM,AN0..NP,LE,n0IM)G0T0220 

0320 PR I NT, 'STOPPED IM ZPLOTN, MV OR NP TOO LARGE* 

0330 print,' MV «N0 I H , NP , MD I Ns • ,MV ,M0 1 K ,nP , ND I ‘1 

03^0 STQO 0220 

0350 220 CONTINUE 

0360 call DATIM(N0ATE,TI^E) 

0370 * check X VALUES IK RANGE 

0380 XMlNaXBIG 

0390 XMAXa-X3IG 

0400 ifl*o 

0410 DO 230 Isl,NP 

0420 X«A(I,1) 

0430 IF{X.QE.XI,AN0.X,l£,X2)GOTO230 

0440 XMINsayInI (X.MIM,X) 
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04«0 

0A60 

0<»7r- 23f. 

0-80 
04t0 
0500 

0510 2A0 

0520 
0530 
05A0 
0550 
0560 
0570 
0580 
0590 
0600 
0610 

0620 250 

0630 
06A0 
0650 

0660 260 

0670 

0680 

0690 

0700 

0710'* 

0720 ♦ 

0730 
07^0 
0750 
0760 
0770 * 

0760 * 

0790 * 

0800 * 

0810 * 

0620 

0830 

0840 

0850 

0860 300 

0861 
0862 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 * 


xsaxsamaxk'xmax^x) 

r*L*i 

CONTINUE 

IP(IFL.EO*0)QOT0240 j 

PRINT l3f*X* 

PRINT»»XMIN»‘ »XMIN« » X.-AXa* «X'1AX 

CONTINUE 

XMIN«XBIG 

XMAXs-XBIG 

ifl«o 

DO 250 I«1«NP 
DO 250 Js2«MV4>1 
X*A(UJ) 

ir(X,GE.YUAN0.X.l.E.Y2)G0TC250 
XMIN^AMIMI <XMlf,*X) 

XMAX»AMAXI(XMAX«X) 

IFL*1 

CONTINUE 

IFdFL.EO. 0)6070260 
PRINT l3f»Y' 

PRINT»*YMIN»* iXVIN* • YfiAXa* «XVAX 

continue 
call NASTRK 

ENCODECFILENtll) lO^lOCO 
ENCODE (ICNO* 12) lO^lOOO 
call YASTRK 

AXL AND AYL PERTAI* TO THE ABCISSA ANO OROr^ATE RESPECTIVELY 
NOTE 90 DEGREE POTATION ASSOCIATED WITH USE IN XF AND YF 
YFs(X2-Xl) /AXL 
XF»(Y2-YI) /AYL 
X0s-Yl-7.5*XF 
Y0aXl-l,5*YF 

letting XP and YP lu PAPER COQPOINATtS IN INCHES, THEN FOR 
90 DEGREE ROTATION 

YPal^A^(X-XI) /YFx (X-XU1,5*YF) / YF, Y0aXl-l.5»YF 
Aps. i-(Y-Yl) /XFr (-Y»Y1*7,5*XF) /XF. X0a-Yl-7.5*XF 
NOTE NEGATIVE ENTRY QN ORDINATE VALUE 
call PL0TF{30,FIl£N,I5TAT) 

IF( ISTAT.EQ.0)G0T0300 
print, »PL0TF error* dSTAT 
STOP 030C 

CONTif^yp 

X.'iTI a (30.0-NTI ) /2.0 
XNTI a XNTI#0.3 ♦ 1.0 

call jYMB 0L(1.0,XMTI ,0.2,ITi ,90.0 ,(iTI) 
call symbol ( 1.5, 4. 0,0. 2, 'CASENOa* ,90,0,7) 

call SYMB0L(l.5»6.2»0.2dCri0,90.0,3) 
call SYm.B0L{8.3,7,C,.1 ,M0ATE,90.0,8> 
call NUMBER(8.3,o.5,.1 ,TJME,90.0,3) 
call AXIS(7.5»1.5»IXC*-NXC,AXL»90.0»XI ,YF) 
call AXIS(7,5d.5»IYC,NYC,AYL» leO.O ,Y 1 ,XF) 

''OTE MINUS SIGN Y AXIS DUE TO 90 DEGREE AND OFFSET GRAMMAR 


ORIGINS 

OF POOR QUALITY 


ZPLOTMSl 


0950 


CAUL PL0TI(2,5) 

0960 


DO 310 Js2»MV*L 

0970 


lC»lvr-!CD< J«3) *U 

0980 


I*L 

0990 


XPaXPF(-A(UJ) > 

1000 


YPsYPF(A ( I ,l ) J 

lOlO 


call ^LjT(XP.YF,3) 

1020 


00 310 Is2,r.P 

1030 


XPaXPF(-A U *J) ) 

.1040 


YPaYPF(A{Ul) ) 

1050 

31^! 

call PL0T(XP.YP,IC) 

1060 


call PLCT(8.5»0.0»-3) 

1070 


call PL0T(0*0»0,0»999) 

1080 


PRINT, •‘■'ROTE Plot file 

1090 


RETURii 

IlOO 


end 


• ,FIL£M 


ORIGINAL PAGE M 
OF POOR QUALfTY 


zplcttsi 


04/08/81 4:01 PM 


0010*«RUN #»;2PlOTT 01 (riUG0»Cv0PE«3CK) 

0020 S'JoROUTP E ZPUCTT ( I C ».':P .A .MD 1 “ ..-D Im , I xC . I YC . I TI « XO « 

0030 6 Xl»X2»X5.IPO«^XC»NYC»NTl ,yo*YUY2»YD) 


0040 * 
0050 * 
0060 * 
0070 * 
0080 * 
OOPO ♦ 
0100 * 
0110 * 
0120 * 
0130 * 
0140 » 
0150 * 
0160 * 
0170 * 
0180 ♦ 
0190 * 
0200 * 
0210 * 
0220 ♦ 
0230 * 
0240 » 
0250 * 
0260 * 
0270 # 


this SubftOUTIf.E GENEPATES A 2ETA PLOT FILE V^ITH MAN'S RPLOTIJIC 
^‘HEPE IJK IS three digit id. THIS FILE WILL PLOT 4 CURVES 
CORPESPChCING TO THE COLUMNS 2 THRU OF REAL ARRAY. A. 

VS CEPENOA.MT VARAir^LE CCmTAI >ED U' COLUMfi I OF A 

r;uEPEN0EMT variable ASSUMED TC LIE IM SA.’iGE (XI. X2) 
dependent variable assumed TC lie IM range (YI.Y2) 

THIS PLOT SUPPCUTIME DIFFERS FPO;' ZPLOTM IN THAT THE 
the A3CISSA A.iD ORDInATE JIRECTIONS RELATIVE TO THE 
GRAPH PAPER ACE ROTATED 90 DEGCEES. THUS. THE ABCISSA IS 
essentially unlimited in LENGTH BECAUSE IT RUMS IN THE 
DIRECTION OF THE PAPER FEED. 

3F significant difference IS THE APOITION OF TH£ ARG- 
UMENT •1‘^c*. /.HIGH ALLO^JS THE USER '-lORE CONTROL OVER THE 
OUTPUT OF the ZETA PLOTTER. IFC s 0 SHOULD 3E THE 
default value SrCE it resets the ORIGIN AMO TURNS OFF 
the Plotter at the end of execution, ifo a i allows the 
USER to put two uwdELS ON THE ORDINATE AND PlOT TWO 
SEPERATc FUNCTIONS ALONG THE SAME ABCISSA. IFq a 2 ALLOWS 
the user TO SET A 'lE*. ORIGIN A-D PLOT ANOTHER GRAPH l^ 

The same output file. it '^UST be noted THAT ONLY IFO a Q 
TJRnS off the plotter so the final call TO THIS ROUTINE 
SHOULD BE WITH IFO = 0. 


0230 


0290 

* 

0300 

» 

0310 

* 

0320 

# 

0330 

ft 

03w0 

ft 

0350 

ft 

0360 

ft 

0370 

ft 

0380 

ft 

0390 

ft 

0400 


0410 


0420 


0430 


0440 


0450 


0460 


0470 


0480 


0490 



10 CASE identification 

MV number OF DEPEf.OENT VARIABLES 

MP number of POINTS OF ABCISSA 

NOIM ROV'J OIMENSIOM OF A 

•'•OIN column DI.‘'EMPICN OF A 

IXC CHARACTER variable COlTAINUiG ABCISSA LEGEND 
lYC character VARlA!i(LE CONTAIMMG ORDINATE LEGEND 

ITI character variable CONTAINING TITLE 

NXC number of characters I*. IXC 

NYC iiumber of characters I‘. iyc 

NTI f.UVBER OF characters I' I7I 

1^0 aO RESET ORIGIN AN'O TURN OFF PLOTTER BEFORE RETURNING 
al DO MOT reset ORIGIN AND DO NOT TURN OFF PLOTTER 
(USED FOR multiple PLOTS ON SAME GRAPH) 

82 RESET ORIGIN BUT DO NOT TURfI OFF PLOTTER 
(USED FOR MULTIPLE GRAPHS IN SAME FILE) 

XO ABCISSA COORDINATE OF ORIGIN 

YO ordinate CCOROINATE OF ORIGIN 

XI ABCISSA L0*»ER LIMIT IN PHYSICAL UNITS 

X2 ABCISSA UPPER LIMIT IN PHYSICAL UNITS 

X5 ABCISSA scale UNITS/INCH 
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ZPLOTTSl 


OP POOR QUALflY 


PAGE 2 


0500 * 
0510 * 
0520 » 
0550 * 
05^0 * 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
06^0 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
C760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 


Yl fiROINATE lover limit 

Y2 CRDir.'ATE UPPER LIMIT 

YS CROl.'.ATE scale U'IITS/T CH-CETERMINED I-'i THIS SUBROUTINE 

i-ASED uN TiPUT YD 

YO ordinate distance H I-'<CHES to be SPANf.EO BY Y2-YI 
a format('Rplotsi3*‘;») 

U F0RMAT(I3) 

13 F09MAT( ».>ARNIMG IN ZPLOTT ♦ * » A2 • ' VALUES ARE OUT OF RANGE') 

D I E'.s I Of A ( .‘.D I'SMO I ■'• ) « I V ( 3 ) 

character FlLE‘<*9axC*30aYC»30«ITI#30aCN0*3».N0ATE»8 
INTEGER 0 NFlaG/0/»lASELED/0/»LA6EL2/0/,LASTYPE/0/ 

DATA XSIL/1.E20/ ♦rv/2»4.5/»JC0UNT/l/,I8/0/ 

XPP (X) sXJ* (X-XI^) /XS 
YPF ( Y) sYO-^ (Y-YU /Y5 
YSs ( Y2-YI ) /YD 

IF(MV,LT,:''DIH.AND..NP,i.E..'iDIM)GCTC220 
PRINT, 'STOPPED IN ZPLOTT, ’’V OR nP TCO LARGE' 

PR I NT ♦ ' f-'V »MD I M , r,D , : .0 !'•»= » ,MV , NO I N »NP « MD I M 

STOP 0220 
22f^ CONTINUE 

CALL DATIM(NOATE,TIME) 

XMIfiaXCIG 
XMAXs-XSIG 
IFl = 0 

DO 230 1 = 1 *f4P 
X=A(I,1) 

IF(X.GE.X1.Ah0.X.LE.X2)G0T0230 
XMINsAMIM (XMIM,X) 

XHAXsAVAXl (XHAX,X) 

ifl=i 

230 COMTlNUc 

IF( rFL,E0.0)G0T0240 
PRINT 13,'X* 

PRINT, '.'C' lNs' »XMI.N,' XN AXs' ,XM.AX 


0840 240 continue 


0850 XMINsxeiG 

0860 XMAXa-XoIG 

0870 IFl=0 

0880 DO 250 Iai,NP 

0890 DO 250 ja2,MV^l 

0900 XsA(I,J) 

0910 IF(X,GE,YI ,ANO,X,L£.Y2)GOT0250 

0920 XHINsAVIM (XMIN,X) 

0930 XMAXaA::AXl (XMAX,X) 

0940 IFLGal 

0950 250 CONTINUE 

0960 IF(IFLG.E0.0)Q0T0260 

0970 PRINT 13 ♦•Y' 

0980 PRINT, 'YMNa' ♦XMIN,»YMAXa» ,X.VAX 

0990 IFLQaO 

1000 260 C0^4TI;NUE 

1010 call NASTRK 
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1020 
1030 
10^0 
1050 
1060 » 
1070 * 
1080 
1090 
1100 
lllO 
1120 
1130 
11<»0 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 * 
1450 * 
1460 
1470 
1430 
U90 
1500 
1510 
1520 
1530 


ENCOOECPILEfUU) 10*1000 
ErJCOOE(ICNO»l2) ID* 1 000 
call yastrk 

Tu«N ON Plotter o.oly if this is the first 
graph I.N a new FIlE. 

IF(0 i'!FLAG.EQ* 1)GOTO265 
call PLOTF( 30 »FIlEN»I 5TAT) 

IF ( ISTAT.EQ.C) GUT0265 
PRINT, 'PLCTF ERROR’, ISTAt 
STOP 0265 
265 CONTINUE 

call PlOTI ( 10. 0) 

OriFLAG=l 

IF (LAUEutC,£C.l)G0TC267 

call SY' 1lrCL(2.C,l0.C,O,2,ITI ,0.0,f:Tl ) 

call symbol ( 3.9,9.5 .0.2, ’CASElCs’ ,G.0,7) 

call 5YY3CL {5.7,9.5»0.2«ICNU,0.C,3) 

call symbol < 14.0,0.1 ,.l ,;1DATE»C. 0,8 > 

call NUNe£R(15.5,0.1,,l,TlME,0.0,3) 

call AXI 5(X0,Y0,IYC, JYC, (Y2-Y1) /YS,90.0,Y1,YS) 

call AXIS(XO,YC,IXC,-f.XC, {X2-XD /XS, 0.0, XI, XS) 

LA5ELEC=1 

267 IF(LASTYPE.NE.1.0R.LABEL2.EJ.1)G0TC!270 

call AXIS(X 0,Y0,IYC,-N'^C, (Y2-Y1) / YS,90.0,Y1 ,Y5) 
LA6EL2S1 
270 continue 

call PLOTI ( 2.5) 

DO 315 J=2,MV*1 
ICsIV(M 0D(JC0UNT, 3) *1 ) 

1 = 1 

XPsXPF(m(I,D) 

YPsYPFCA ( I ,J) ) 
call PL 0T(XP,YP,3) 

DO 310 1=2, NP 
XP=XPF(A{1,1) ) 

YPsYPFCA ( I ,J) ) 
call PL 0T{XP,YP,IC) 

31-) continue 

JC0UNT=JC0UN.T*1 
315 continue 

NOW perform closing as indicated by the USER'S 
SPECIFICATION OF ’IFC. 

IF{ IF0.GE.0.AND.IF0 ,lE. 2)G0TC320 
PRINT, ’ERROR IN ARGUMENT IFO»,IFC 
STOP 0320 

320 CONTINUE 

IF(IFO.EO*1)GOT0340 
IF( IFO.E0.2)GOT0330 
ONFLAGsO 
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» ***★★★★■»*★»★★ mUtiUHt ■k****iriHfir*itiHr****iHr****1l*iHt****** 

AFPRYB^a 04/16/81 2*56 PM 

**irk ****** -kirkirkit ********* 


1 non 

IFRE=P8 ITMP=6 

LREC=«38 IPRM» 55 

NDATH* 04/16/81 

TIME- 14.90 

1 01 n 






1020 

41 3 0 

3 0 

0 



1 030 






1 040 

4.41 OOOOOE-05 

1 .4300000E-05 


1 .4300000E-05 


1 050 

-6. 2000000 E-04 

1 .0200000E-05 


1 .0200 000E-05 


1060 






1 070 

I . 4300000E-05 

4.41 OOOOOE-05 


1 .4300000E-05 


1 080 

1 .0200000E-05 

-6. 2000 000 E-04 


1 .0200000E-05 


1 090 






1100 

1 .4300000E-05 

I .4300000E-05 


4.41 OOOOOE-05 


1110 

1 ..02 00000 E-05 

1 .020O000E-05 


-6.2000000E-04 


1 1 20 






1 130 

42 3 0 

3 0 

0 



1 140 






1 150 

1 .8800000E-04 

-1 .2300000E-05 


-1 .2300 000E-05 


1 1 60 

-2. 9700000 E-05 

6. 8 900000 E-05 


6 . 890OO0OE-O5 


1 1 70 






1 1 80 

-1 .2300000E-05 

1 . 8800000E-04 


-1 .2300 000E-05 


I 1 90 

6.8900000E-05 

-2.9700000E-05 


6.8900000E-05 


1 200 






1210 

-1 .2300 000 E-05 

-1 .2300000E-05 


1 . 8800000E-04 


1 220 

6.8900000E-05 

6.f3900000E-05 


-2.9700000E-05 


1 230 






1240 

43 3 0 

3 0 

0 


This file has bee 

1 250 





obtained by refer 

1 260 

8.5800000E-05 

-8.4600000E-07 


-8.4600000E-07 

matting file R2 

1 270 

-1.61 OOOOOE-04 

3. 3 000000 E-05 


3.3000000E-05 

(after first re- 

1 280 





naming R2 to 

1 290 

-8. 4600000E-07 

8. 5800000 E-05 


-8. 4600000E-07 

AFPRY886) using 

1 300 

3.3000000E-05 

-1.61 OOOOOE-04 


3.3000000E-05 

main program 

1310 





AFPRYGEN. 

1 320 

-8. 4600000E-07 

-8.4600000E-07 


8.5800000E-05 


1 330 

3. 3000 000 E-05 

3. 3000000 E-05 


-1 .61 OOOOOE-04 


1340 






1 350 

44 3 0 

3 0 

0 



1 360 






I 370 

3. 1 1 OOOOOE-05 

-1 .1 400000E-05 


-1.1 400000E-05 


1 380 

-9.8600000E-05 

2. 6000000 E-05 


2.6000000E-05 


1 390 






1 400 

-1 . 1400000E-05 

8. 1 1 OOOOOE-05 


-1 . 1400000E-05 


1 410 

2. 6 000000 E-05 

-9. 8600000 E-05 


2.6000000E-05 


1420 






I 430 

-I . I 400000E-05 

-1.J400000E-05 


8. 1 1 OOOP/OE-05 


1 440 

2.6000000E-05 

2.6000000E-05 


- 9. 8600000E-05 


1 450 






1 460 

45 3 0 

3 0 

0 



1 470 






1480 

6.4000000E-05 

-9.51 OOOOOE-06 


-9.5100000E-06 



3-1 
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AFPRY8B6 



PACE 

1 490 
1 5 no 

-7, 55 00000 lr-05 

2.01 OOOOOE-05 


2.01 OOOOOE-05 

1 5tn 

-9.51 oonnoE-06 

6. 4OOO0O0B-O5 
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709 

708 

109 

710 

711 

715 

9 

177 

1 

544 i 

A d 

1381 

711 

710 

712 

0 

301 

823 * 


1383 713 712 0 0 303 524 





1387 

718 

717 

719 

X2A8 3X9 3X8 120 3 

1389 

720 

719 

721 



1391 722 721 723 0 453 579 4 25 1 0 0 0 



1397 728 727 729 0 453 1204 4 25 I 0 0 0 
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1413 

747 

746 

■n 

■I 


1414 

7A4 

74A 




1415 

749 

748 

750 

770 

625 

1414 

750 

749 

7A1 

ft 

<77 

1417 

751 

750 

752 

753 

627 

1^19 

752 

■’51 

0 


A77 

1419 

753 

751 

754 

n 


1430 

75^ 

■»53 

15* 

KFlil 


1431 

755 

754 

754 


2 

1433 



n 

n 

A«1 

1423 

758 

754 

759 

■1 

m 

1434 

750 

759 

740 



1425 

760 

759 

761 

■1 

1 

1424 

741 

740 

742 


A<l 

1427 

762 

761 

763 

0 

453 

142f 

743 

743 

744 

/> 

A< 1 

1429 

764 

763 

0 

0 

453 

143« 

76^ 

75a 

744 

ft 

<77 

1431 

766 

765 

769 

0 

527 

1432 

749 

744 

0 

ft 

<77 

1433 

770 

749 

771 

ft 

2 

1^3^ 

771 

770 

777 

ft 

A< 1 

1435 

772 

771 

773 

77A 

451 

14^4 

774 

772 

n 

Q_ 

A<3 

1437 

774 

772 

ft 

0 

453 

M3® 


704 

7fl 1 

n 

7 

1439 

761 

780 

782 

Mi 

IS! 

14^0 

7«? 

7R1 

7fl 7 

■ra 

PfCfl 

1441 

783 

782 

784 

0 

457 

1443 

794 

793 

78A 

0 

A<7 

1443 

785 

784 

■a 

ft 

457 

} AAA 

7R4 

704 


7M 

1 27 

1445 

787 

786 

788 

>) 

2 

1144 

7Rfl 

7R7 

780 

0_^ 


1447 

789 

788 

790 

■1 


1 AAR 

790 

789 

791 



1449 

791 

790 

0 

0 

453 


797 

7H4 

797 

ft 

1 27 

1451 

793 

792 

794 

0 

129 


79A 

793 

794 


1 29 

1453 

795 

794 

796 

798 

127 

<444 

794 

794 

0 

0 

1 27 

1455 

798 

795 

799 

817 

127 


799 

BZ-Th 


ft 

2 

1457 

800 

799 

801 

0 

451 

1 A4R 

flOl 

800 

P02 

flft^ 

A<3 

1459 

802 

801 

803 

■1 

451 

144fl 

kTiIB 

■:Ti>a 

■T7« 

Ml 

44 1 

1461 

804 

803 

0 

0 

453 

M^9 

R04 

801 


0^ 

A41 

1463 

806 

805 

807 

■1 


U64 


■tliT.-H 

■ flQ« 
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14hS 8U0 


1467 810 


1469 812 

t A ^ A A ft ^ 


1471 814 


1472 816 


1475 818 


1477 820 


• I' W*ft f 


807 004 


a<)9 811 


811 813 
^ ft A 


813 


815 


817 819 


819 821 




822 821 8 


1481 824 823 925 


1483 826 825 827 


1485 830 671 831 


1487 832 831 0 


1489 1029 833 


1491 1013 1012 


1493 1014 834 1754 


0 455 610 


0 453 

m Am* 


0 453 701 


53 


58 


0 127 820 


0 101 762 


0 101 1241 


C IftlB 


0 453 777 


0 101 




0 0 


25 1 


0 


15 2 


25 1 0 


838 101 


1499 1515 839 1509 


1501 840 839 941 


1503 842 841 843 


1505 844 841 845 


1507 846 845 847 

fCnfl flA'T 


1509 848 847 


1511 850 849 851 

BKt a«n 


1513 852 851 953 


1515 854 850 855 


H 


101 2807 


0 101 691 


0 525 701 


849 527 1515 

n ^ n 


0 451 747 


854 527 716 

1 I) 


0 453 1521 


959 527 0 




































1547 1)88 887 n o 527 747 4 25 ) 0 0 0 


1549 !509 891 15)0 


1551 1511 1510 15)2 )514 453 

1 5 5 ? 

1553 1513 1512 0 0 453 


1555 890 889 8<»1 0 627 

liSA — aaj — aaii ao? itino 

1557 892 891 904 893 527 

xiia — aa3 aai 89^4 n ? 



1559 894 893 895 0 453 579 4 25 1 0 0 0 
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m 


1571 911 


1573 913 




907 912 


912 914 


0 0 0 


0 


1579 919 




1583 924 


918 920 0 


920 0 0 


923 925 927 




riH 


1585 926 925 


1587 930 927 931 0 527 


1589 932 931 933 

t CQA ail a A 


1591 934 931 935 0 627 


1593 936 935 


1595 1018 0 1019 0 975 


1597 941 940 942 


1599 943 942 944 0 102 


1601 945 944 946 


1603 1160 843 875 1161 lOl 


1605 1162 1161 


1607 1166 1165 1167 


1609 1110 1167 0 0 903 


1611 1169 1168 


1613 1173 1172 


1615 1303 1177 1304 0 3 

% 4 £. A 


1617 1177 1176 1305 1303 101 

o 


619 1178 1305 1179 1182 105 


453 1839 


453 1244 


627 716 

1 


453 912 


527 686 


3 


627 671 


627 1008 


975 


102 2208 


102 1440 


102 1056 


101 1862 


»*r4 




25 1 


10 1 0 


10 2 0 
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OF POOR QUALITY 


- 
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1621 1182 1178 

A4 

1623 1U<4 1193 11P7 

t I 1 « t flA t « Qii 

1625 1030 1187 0 



1631 1192 1191 1|Q4 


1633 1195 1194 1196 


1635 1197 1196 1198 


1637 1199 1198 


1639 1201 1196 1202 



3 


318 2113 


317 5973 


317 1729 


10 1 


0 


1645 1207 1206 


1647 1209 1206 1210 


1649 1215 1305 1216 1222 


1651 1217 1216 1218 1270 

fAKl i‘>f7 n 


1653 1218 1217 1219 1221 


1655 1219 1219 


1657 1300 101 1301 0 


1659 1302 1301 


1661 1011 1655 1696 


1663 1657 1656 1658 0 


1665 1659 1658 1660 


1667 1661 1660 1662 0 

1668.1.662 1661 1661 0 

1669 1663 1662 1664 0 


1671 1665 1664 1666 


101 3937 


501 700 

a 


5 


201 576 


525 


3 


1 


905 601 


5 402 


HAGF 1 i 


k 10 

1 

0 1 

1 — as 1 0 1 
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1^73 1067 I66n lObP 


1675 1609 1008 1070 


1077 1671 1670 167? 


1679 1673 1672 1674 


1601 1785 1674 1786 


1683 1789 1786 170o 


1685 1791 1790 179? 


1687 1793 1792 1794 n 


1689 1015 357 1690 1675 


1691 1676 1675 1677 A 


1693 1678 1677 1679 0 


1695 1680 1679 1681 A 


1697 1682 1681 1683 0 


1699 1690 1015 1691 







1701 1692 1691 1693 


1703 1694 1693 1605 


1705 1696 1695 1697 


I W I • T sTV ■ nv r 


1707 1698 1697 1699 




1709 1700 1699 1701 




1711 1702 


»j: v^BBlir \ 


1713 1787 1655 1703 


»Jir WBIii 


171C 1705 1704 1706 


■ 1 1 B 1 1 L. Vi B f • VI 


1717 1707 1706 1708 


VIll.HBItl 


1719 1709 1708 1788 


IBBi»HBi'i;HBIfL*Hi.T'r 1 


1721 1684 1788 1530 


1723 1531 
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DNtiKIN72 




1725 1711 1710 1717 
U26 U12 17U 17iX 
1727 I7i > 1712 1714 
ll2i- l-U^_4JLU_i-I4 S. 
172Q 1715 1714 1714 

.uUa 174A-41-IS JX- 

1731 1770 434 1717 




1733 1718 1717 1719 


3 0 

9ab~l 
905 |0*«5 


90S 1622 


3 0 


905 1256 



1735 1771 1719 0 

jn ^‘06 1721 17^ 

0 90 

1 


1737 1775 1770 1776 

mm 


1739 1721 1720 1726 0 931 3452 

4^^A A '1 


174J, 1723 1722 17?4 0 05 


1743 1725 1724 1726 0 905 1027 


1745 1727 1726 1778 0 905 747 


1747 1729 1721 1730 1722 903 842 


17^9 1000 1730 1010 1737 903 


1751 1001 1010 100? 


175^ 1003 1002 lf'04 


1755 1005 1004 1006 


1757 1007 1006 1008 


1759 1731 1730 173? 


1761 1733 1732 1734 


5 3 


905 1259 


905 2622 


4 25 

1 

() 1 

4 25 1 U 1 




1769 1522 1521 


1771 1738 1737 1739 


1773 1740 1739 1741 


1775 1742 1741 


3-2 
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n«IWKZt«72 


!777 1751 1750 1757 


1779 175J 1752 ' 


1791 1755 1754 I75f 


l7tJ 1757 1756 


1785 1761 17b0 1762 


1707 1763 1762 1764 


1789 521 520 522 


0 905 2354 


0 905 2445 


0 905 1287 


0 905 1262 


6 905 1256 


13 401 277 


1 1791 

i 1 •»Q'> 

523 

521 

t2| 

524 

A 

525 

401 

1475 

AC 1 

1793 

1 VOJ 

525 

CA A. 

S23 

ft 

A 

527 

A 

401 

AA 8 

li4n 

%QAA 


1795 527 525 528 


1797 529 528 530 0 4OI 616 


1799 531 530 532 0 401 2015 


1801 533 532 534 535 401 1049 

^ A A A AA« «4AU 


1903 535 533 536 537 401 3283 


1805 537 535 539 0 401 1284 


1807 539 538 540 541 401 509 

Kia A 


1809 541 539 542 


1811 543 542 544 


1813 545 544 546 0 401 1173 


1815 547 546 548 


1817 549 548 550 0 401 713 


1919 551 550 552 553 401 1478 

taOA A A C46 


1821 553 551 554 


1823 555 554 556 0 401 750 


1825 557 556 558 


1827 559 558 560 0 401 4712 




ft 


401 856 


5 


0 0 
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561 560 567 


HJ1 373 372 374 


1533 375 374 376 « 401 


1835 374 377 376 n 401 


1837 376 376 380 0 401 


1839 381 380 38? 


1841 383 382 384 385 401 


1843 385 383 386 0 401 

M AA4 


1845 387 386 388 0 401 

1846— 188. -081 — 189 fl_-48L 

1847 389 388 39« 0 401 


1849 391 390 39? 393 401 


1851 393 391 3«4 0 401 

A rk A 


1853 395 394 366 411 401 


1855 397 394 398 0 401 


388 

.a89_. 

390 


1857 399 398 40i 400 401 

U68 4Ha — 149 — 4ia — 4(U 

1859 401 400 0 0 401 


’i.YimIv 941 


Till 




r 148 


1867 409 408 410 411 


1869 411 409 412 

A10 ail n 


1871 413 395 414 0 401 

AtA ail aiK aia aoi 


1873 415 414 0 0 401 

. ^ ^ A AAA A A A A 


1875 417 416 0 0 401 
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LTYPOATA 


04/09/81 


1010 101«99 101 GX0C2X 
1020 3 « 1 « 0 , 0,1 
1040 I 
1050 3 

1070 •279O,,2790,, 0217*. 666 
1090 I.4096«.6653*.316,3.72E7 

1120 .3.667«33.667 

1121 O.OOr *35.0e3 

1122 3.667,33.667 

1123 .583,27.333 
1128 1 

1010 103*09 121 0X0002 
1020 3*1*0, 0*1 
1040 1 
1050 3 

1070 .2790, ,2796, .0217, .666 
1090 ,3547,.3e48,.629,3.72E7 

1120 -3.6o7*33,667 

1121 0.000,35.063 

1122 3.667,33.667 

1123 .583,27.333 
1128 1 

1010 105*V9 103 OXOCOX fl 
1020 3*2*0, 0*1 
1040 1 
1050 3 

1070 . 279H,. 2796, .C217,. 666 

1090 .8870, .6547, .398, 3, 72E7 

1091 1,600,, 4773, ,500, 3. 72E7 

1120 ->3.667*33.667 

1121 0.000,35.063 

1122 3.667,33.667 

1123 .583,27.333 

1124 .333*22.500 
1128 1 * 

1010 107,-59 103 0X002X «1 
1020 3*2*0, 0*1 
1040 1 
1050 3 

1070 .2790, ,2798, .0217, .666 

1090 1.4096*,6653*,316,3.72£7 

1091 l,60r ,,4773, ,500,3. 72E7 

1120 -3,667*33.667 

1121 0,00-1,35.063 

1122 3.66*', 33. 667 

1123 .583,27.333 

1124 .333,22.500 
1128 1 

1010 109,-59 105 CX0C2X m3 


3-23 


10:58 AM 

»♦«*#****«* 


LTYPOATA 


ORIGINAL PAGE IS 
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1020 3«2*'^«0«1 
10^0 1 
1050 3 

1070 •279^,, 2798%. 0217, ,666 

1090 1.40'’3*.6653«.3l6%3.72E7 

1091 •100')%.3n92%2.000,3.72E7 

1120 •3.667«33.667 

1121 0.000«35,0&3 

1122 3.667,33.667 

1123 .583,27.333 
1126 .333,22.500 
1128 1 

1010 lll.')9 105 OaC'OOx '<3 
1020 3«2<^'<0.1 
1060 1 
1050 3 

1070 .279''., .2796, ,0217, ,660 

1090 ,867';,,6567,,39e,3,72E7 

1091 .100 '.,.3092, 2, COO, 3. 72E7 

1120 -3.607,33.667 

1121 0.00^,35.063 

1122 3.667,33.667 

1123 ,583,27,333 
1126 .333,22.50.: 

1128 1 

1010 113.99 137 0X0u02 .*'<ULTI TELEPHONE Ll-ES 
1020 3.2. >,0«1 
1060 1 
1050 3 

1070 ,279n,, 2796, .0217, ,666 

1090 .356'y,,3865,,629,3.72E7 

1091 1.60^,.6773..500,3.72E7 

1120 -3.667*33.667 

1121 0.00^-, 35, 063 

1122 3.667,33.667 

1123 .583,27.333 
112*. .333,22.500 
1128 1 

1010 115.99 125 0X00C2 M3 
1020 3.2.0.0.1 
1060 1 
1050 3 

1070 ,279->,, 2798, .0217, ,666 

1090 .3567,,3p4f,,,(.29,3,72E7 

1091 ,100r ,,3(.92 ,2.-000,3.72E7 

1120 -3.667,33.667 

1121 0.00.0,35.063 

1122 3.667,33.667 

1123 ,583,27.333 
1126 ,333,22,500 
1128 1 

1010 117. '59 291 IXOCOx 
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LTYPOATA 

1020 S«l*o«0*l 
lOAO I 
1050 3 

lOYO •AA6H«*89Y0««CC'*>5««39n 
1090 396,3. T2E7 

1120 •1.79,33.25 

1121 0.00O,«0.00 

1122 1.75,33.25 

1123 .583,27.500 
1121 1 

1010 119,99 2<»1 OXOOOx 
1020 ^,l,'^,0,l 
1090 1 
1050 3 

1070 ,2791",. 2795, ,o:i7,.6hfc 
1090 ,887f.,,65*»7,.39tx,3.72E7 

1120 •1.75,33,25 

1121 0.00^,35.000 

1122 1.75,33.25 

1123 .583,27.900 
1128 1 

1010 121,99 261 0x0002 
1020 3,l«o,0,l 
1090 1 
1050 3 

1070 .2790, .2798, .0217, ,660 
1090 .3567, .366b, ,629, 3, 72C7 

1120 •1.75,33,25 

1121 0.000,35,000 

1122 1.75,33.333 
:i23 .583,27.500 
1128 1 

1010 125,09 199 OXUMO M3 
1020 3, 3, 0,0,1 
1090 1 
1050 3 

1070 . 2790, .2T9H,, 0217, ,066 

1090 1.335,. 6830, ,*»330, 3. 72E7 

1091 .8870, .6597, ,398, 3, 72E7 

1092 •100'',.3092,2.0CO,3.72E7 

1120 ,670,32.810 

1121 1.000,32.290 

1122 1.333,32.810 

1123 1.000,33.333 
1.29 .883,33.292 
1125 .333,23.658 
1128 1 

lOlO 127,99 621 2XOOOX 
1020 1,2, 0 , 0,1 
1090 1 
1090 1 

1070 1 .9076 , 1 • 6098 , . 005 1 0 , • 3 1 6 


PAGE 3 
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1090 UA096««6653«. 316*3. 72E7 

1091 *8870,. 6567.. 396.3.72E7 
1120 -3*667«33.6o7 

lin 3.667«33.667 
1122 .5833*27.333 
1128 1 

1010 129*99 601 IXOOOX 
1020 1«1*0*0*1 
1040 1 
1050 1 

1070 •8862*.6870«.0045*.39b 
1090 .8870, .6547,. 396*3. 72E7 

1120 0.000*35.000 

1121 .583,27.333 
1128 1 

1010 131*09 601 1X002X 
1020 1*1*0*0*1 
1040 1 
1050 1 

1070 .8662*. 8870, .0045, .348 
1090 1.4093, .6653*. 316, 3. 72E7 

1120 0.00'>,35.000 

1121 .583,27.333 
1128 1 

1010 133*99 601 2X002X 
1020 1 * 1 * 0 , 0*1 
1040 1 
1050 1 

1070 1.4076*1. 4098*. 00510, .316 
1090 1.4098*. 6653, .316, 3. 72E7 

1120 0.000,35.000 

1121 .583*27.333 
1128 1 

1010 135*09 621 1X0002 
1020 1 * 1 * 0 , 0*1 
1040 1 
1050 1 

1070 .8862, .8870, .0045, .393 
1090 .3547, .3848, .629, 3. 72E7 

1120 0.000,35.000 

1121 .583,27.333 
1128 1 

1010 137*09 625 1X0002 K3 
1020 1*2*0, 0*1 
1040 1 
1050 1 

1070 .8862*. 8870,. 0045, .39t 

1090 ,3547,,3846,.6?9,3. 72E7 

1091 . loot',. 3092,?. 000, 3.72E7 

1120 0.000,35.000 

1121 .583*27.333 

1122 .333,22.500 
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1128 1 

1010 139*99 651 OXOOOX 
1020 3*1«0«0*1 
1040 1 
1050 3 

1070 .2760*,2796,.0217,,666 
1090 •887'>, ,6547,. 398, 3.72E7 

1120 1.271,32.792 

1121 1.271,29.292 

1122 1.271,25.792 

1123 .5833*21.833 
1128 1 

1010 141,99 671 0X0002 
1020 3 * 1 * 0 , 0*1 
1040 1 
1050 3 

1070 . 2790 , . 279t> * • 02 1 7 , • 666 
1090 .3547, .3646, ,629, 3. 72E7 

1120 1.271,32.792 

1121 1.271,29.292 

1122 1.271,25.792 

1123 .5833,21.833 
1128 1 

1010. 143*99 101 OXOOCX 
1020 3tl*0*0*l 
1040 1 
1050 3 

1070 .2790*. 2798, .0217, .666 
1090 .8670, .6547, .398, 3. 72F7 

1120 -3,667,33,667 

1121 0.000,35.063 

1122 3.667,33.667 

1123 .583*27.333 
1128 1 

1010 145*99 123 0X00C2 
1020 3*2*0, 0,1 
1040 1 
1050 3 

1070 .2790, .2798, .0217, .666 

1090 .3547, .3848, .629, 3. 72E7 

1091 1.600, .4773,. 500*3. 72E7 

1120 -3.647*33.667 

1121 0.00<',35,063 

1122 3.667,33,667 

1123 .563*27.333 

1124 .333,22,500 
1128 1 


3-27 


rbtrdata 


04/09/fll 


10:50 AM 


1000 

1010 33 3.0 .033 1.01.E-9 H.6E-6 1.59 


original page 18 

OF POOR QUALITY 
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RMOATAl 


04/16/81 11:28 AM 


1000 999 99 10 6 3 4 3 0 0 1 
1010 1 ,0231 75.0 8130. 

1020 2 2*52 45.0 2U0 1.11 

1030 50. .385 .064 .896 3.0 2.3 1 .750 .515 .880 .780 2.0 


This file contains a set of 
underground cable parameters 
and Is read by main program 
UGZYGES1 . 
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** »■**»***♦»★ *■»**★* <>■« IHUHr iHUHHr 


Rl 04/16/BI 2153 PM 


41 3 

42 3 

43 3 

44 3 

45 3 

46 3 

47 3 
45 3 
49 3 
51 3 
55 3 


4.4IE-5 -6.2E-4 I.43E-5 1.02E-5 
I.55B-4 -2.97E-5 -I.23B-5 6.89E-5 
5.55E-5 -I.6IE-04 -5.46E-7 3.3E-5 
5. IIE-5 -0.86E-5 -I.UE-5 2.6E-5 
6.4P-5 -7.55E-5 -9.5IE-6 2.0IE-5 
4.54E-5 -5.06E-5 -5.52E-6 I.4E-5 
3.35E-5 -3.04E-5 -6.92E-6 5.6E-6 
2.0IE-5 -2.03E-5 -3.65E-6 5.64E-6 
2.42E-5 I.55E-I 2.42E-5 -7.S4E-2 
2.46E-5 7.71 E-2 2.46E-5 -3.94E-2 
2.4IE-5 3.I1E-I 2.4IE-5 -1 .56E-I 


This file Illustrates an Input 
file for main program AFPRYGEN. 
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ORIGINAL PAGE IS 


1 ono 



wr ruQR 

into 




1020 

41 3 

0 3 0 

0 

1030 




I 040 

4.41E-05 



1050 

-‘6.20E-04 



1060 




1070 

1 .43E-05 

4, 4 IE-05 


1050 

1 .02E-05 

“6 ,20E— 04 


1000 




1100 

1 .43E-05 

1 .43E-05 

4,4.1 B-05 

1 110 

1 .02E-05 

1 .02E-05 

-6.20E-04 

1120 




1130 

42 3 

0 3 0 

0 

1 140 




1 150 

1 .08E-O4 



1 160 

-2.07E-05 



1170 




1 100 

-1 .23G-05 

1 • 80E— 04 


1 1 00 

6.05E-O5 

-2.07E-05 


1 200 




1210 

-1 .23E-05 

-1 .23E-05 

1 , 00E-O4 

1 ? 2 n 

6.80E-05 

6.89E-05 

-2.97E-05 

1 2.10 




1 240 

43 3 

0 3 0 

0 

1250 




1260 

0.5RE-O5 



1 270 

-1 .61E-04 



1 200 




1 2 90 

-0.46E-O7 

0.58E-O5 


1 300 

3.30E-05 

-1 .61E-04 


1310 




1 320 

-0.46E-O7 

-0 •46E— 07 

0.58E-O5 

1 330 

3.30E-05 

3.30E-05 

-1 .6 IE-04 

1 340 




1 350 

44 3 

0 3 0 

0 

1360 




13 70 

0. 1 IE-05 



1 3B0 

-0.86E-05 



1300 




1 400 

-I.14E-05 

0. 1 1E-05 


1410 

2.60E-05 

-0.86E-05 


1420 




1430 

-1 .14E-05 

-1 . I4E-05 

0.1 IE-05 

1 440 

2.60E-05 

2.60E-05 

-9,86E-05 

1450 




1 460 

45 3 

0 3 0 

0 

1470 




1 4R0 

6.40E-05 




This file represents a file 
generated by main program 
AFPRYGEN using file R1 as 
Input. 
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MOT) 

-7.55E-05 



1 500 




1510 

-9.5 IE-06 

6.40E-05 


1520 

2.0IE-05 

-7.55E-05 


1530 




1 540 

-9.51 E-06 

-9.51 E-06 

6.40E-05 

1550 

2.O1E-05 

2.01 E-05 

-7.55E-05 

1560 




1570 

46 3 

0 3 0 

0 

1 5R0 




1500 

4.R4E-05 



1 600 

-5.06E-05 



1610 




1620 

-8. 52 E-06 

4.84E-05 


1610 

1 .40E-05 

-5.06E-05 


1640 




1650 

-8.52E-06 

-8.52E-06 

4.84E-05 

1 660 

1 .40E-05 

I .40E-05 

-5. 06 E-05 

1670 




I 6flO 

47 3 

0 3 0 

0 

1 600 




1700 

3.38E-05 



1 710 

-3.04E-05 



1720 




1730 

—6 • 92E— 06 

3.38E-05 


1 740 

R.60E-06 

-3.04E-05 


1 150 




1760 

-6.92E-06 

-6. 92 E-06 

3. 38 E-05 

1 770 

R.60E-06 

8.60E-O6 

-3.04E-05 

1 7R0 




1 700 

48 3 

0 3 0 

0 

1 ROO 




1 RIO 

2.0IE-05 



1R20 

-2.03E-05 



1 RIO 




1840 

-3.6RE-06 

2.0IE-05 


1 R50 

5. 64 E-06 

-2.03E-05 


1860 




1870 

-3.68E-06 

-3.68E-06 

2.01E-05 

1 880 

5. 6 4 P—06 

5.64E-06 

-2.03E-05 

1 800 




1 900 

49 3 

0 3 0 

0 

1 910 




1920 

2.42E-05 



1 930 

1 .55E-01 



1940 




1 <«0 

2.42E-05 

2.42E-05 


1960 

-7.84E-02 

1 .55E-OI 


1 070 




1980 

2.42E-05 

2.42E-05 

2.42E-05 

1 990 

-7.84E-02 

-7.R4E-02 

1.55E-OJ 

2000 





1 

I 
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2010 

5J 3 

0 3 0 

0 

2020 

2030 

2.46E-05 



20A0 

2050 

7.71E-02 



2060 

2.46E-05 

2.468-05 


2070 

-3. 048-02 

7.718-02 


2050 

2000 

2.46B-05 

2.46E-05 

2.468-05 

2100 

2110 

-3.048-02 

-3.048-02 

7.718-02 

2120 

2130 

S5 3 

0 3 0 

0 

2140 

2.418-05 



2150 

3.11E-01 



2160 

2170 

2.418-05 

2.418-05 


2180 
21 on 

-1 .568-01 

3.1 lE-01 


2200 

2.418-05 

2.418-05 

2.418-05 

2210 

-1 .56E-0J 

-1 .568-01 

3. 118-01 


3-33 


original page w 
OF POOR QUALITY 


TRANFILE 


04/09/Bl 10:58 AM 


5 

5 

5 

10 

5 

15 

5 

25 

5 

40 

5 

50 

5 

75 

5 

100 

5 

167 

86 

5 

86 

10 

86 

15 

86 

25 

86 

40 

86 

50 

86 

75 

86 

100 

86 

167 

88 

5 

88 

10 

88 

15 

88 

25 

88 

40 

88 

50 

88 

75 

88 

IOC 

88 

167 

89 

5 

89 

10 

89 

15 

89 

25 

89 

40 

89 

50 

89 

75 

89 

100 

89 

167 

13 

5 

13 

10 

13 

15 

13 

25 

13 

40 

13 

50 

13 

75 

13 

100 

13 

167 

15 

5 

15 

10 

15 

15 

15 

25 


-91,417 
-66,37C 
-82,190 
-76,699 
-76,133 
-73.612 
-70.341 
-70.963 
-64,468 
-93,092 
- 88.618 
-84,211 
-61.137 
-78.915 
-76,294 
-72,926 
-74.251 
-67,154 
-94,056 
-90.145 
-65.560 
-62.610 
— 80. 6*»4 
-76,121 
-74,636 
-76.405 
-66,F.50 
-94,965 
-92,165 
-87,360 
-85.043 
-63.468 
-80,603 
-76,914 
-79,350 
-71,053 
-95,189 
-96.C22 
-90,518 
-89,195 
-86,169 
-85.831 
-81.946 
-86.561 
-75,856 
-93.230 
-97,073 
-91,173 
-86.962 


-26,976 

-46.531 

-42,069 

-47.761 

-51.067 

-53.817 

-57.353 

-66.628 

-63.162 

-17,986 

-45,353 

-39,667 

-46,397 

-49.721 

-53,735 

-56.490 

-67.525 

-65.166 

-1C.C45 

-42.953 

-36.856 

-43,641 

-46.641 

-51.934 

-57.861 

-66.632 

-65.322 

2.265 

-37,595 

-30.795 

-37,346 

-39.169 

-47,125 

-55.398 

-63.521 

-64,357 

28.688 

-15,992 

-9,240 

-10.675 

-3.967 

-22.746 

-41,986 

-42.658 

-57,474 

54.014 

33.459 

33.435 

43.442 


5.130 

5.130 

5.130 

5.130 

5.130 

5.130 

5.130 

5.130 

5.130 
6.990 

6.990 

6.990 

6.990 

6.990 

6.990 

6.990 
6.990 
6,900 

8.130 
8.130 
8.130 
8.130 

8.130 

6.130 

8.130 
' 8.130 

8.130 

9.510 

9.510 

9.510 

9.510 

9.510 

9.510 

9.510 

9.510 

9.510 
12.010 
12.010 
12.010 
12.010 
12.010 
12.010 
12.010 
12.010 
12.010 

15.030 

15.030 
15.030 
15.030 


This f11« 1$ rttd by lub- 
routlnt TMNAO wblch 1$ 
ctIUd by NTMtCERSA. 
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15 

40 

15 

50 

15 

75 

15 

100 

15 

167 

18 

5 

18 

10 

18 

15 

18 

25 

18 

40 

16 

50 

18 

75 

18 

100 

18 

167 

20 

5 

20 

10 

20 

15 

20 

2* 

20 

40 

20 

50 

20 

75 

20 

100 

20 

167 

22 

5 

22 

10 

22 

15 

22 

25 

22 

40 

22 

50 

22 

75 

22 

100 

22 

167 

25 

5 

25 

10 

25 

15 

25 

25 

25 

40 

25 

50 

25 

75 

25 

100 

25 

167 


-Bfr.004 

-66.411 

-86.605 

-87.605 

-83.760 

-91.563 

-94.767 

-89.299 

-86.242 

-82.664 

-83.002 

-83.741 

-82.637 

-82.663 

-89.296 

-91.266 

-86.162 

-82.7l« 

-79.3C1 

-79.031 

-76.003 

-76.139 

-76.536 

-87.994 

-89.462 

-84.435 

-60.947 

-77,665 

-77,143 

-76.6CI 

-76.167 

-73.827 

-86.302 

-87,271 

-82.307 

-78,829 

-75,652 

-74,940 

-74,163 

-73,928 

-70.951 


54,657 

43,220 

17,637 

52,411 

-16.248 

64.110 

56.572 

56.399 

63,192 

70.038 

65.486 
55.762 
72.969 
43.798 
73,235 
72.536 
70,576 
75,967 
79,474 
77,000 
75.133 
61.788 
74,024 
7b. 921 
77.541 
76.002 
79.985 
82.423 

81.487 
79,965 
84.140 
79.649 
80.597 
51.610 
80.766 
83.421 
84,972 
64.464 
83.698 
86.057 
83.909 


15.030 

15.030 

15.030 

15.030 

15.030 

17.010 

17.010 

17.010 

17.010 

17.010 

17.010 
17,010 
17,010 

17.010 

20.010 
20,010 
20.010 
20.010 
20.010 
20,010 
20.010 
20,010 
20.010 
21,990 

21.990 

21.990 
21.990 
21.990 
21.090 
21.990 

21.990 

21.990 

24.990 

24.990 

24.990 
24,990 
24,990 
24,990 
24,990 
24,990 
24,990 


PAGE 
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ZYDA1164 04/09/91 lli06 AH 


1010 

101 99 11 

b 4 3 

0 0 1 5.0100000E 00 

102C 

4.46730893E-03 

6.03693K4E-02 


1030 

4.02752461E-03 

2.65564090E-02 


1040 

4«04100039E-03 

2.45977fc75E-02 


lOSO 

4,11U22425E-03 

2.42747199E-02 


1060 

4.02752461E-03 

2.85564090E-02 

This f1l6 lllustratM tht OMtput 

lOTO 

4.436034H4F-03 

6.011217# 5E-02 

of proprittary prop‘.*a9 DISEM7S3 

1080 

4.02752‘»61E-03 

2.95564090E-02 

and raprasonta Mtrix Z-Y data 

1090 

4.09554242E-03 

2.41744465E-02 

for ovarhaad Unas. PI las of 

1100 

4.04100039E-03 

2.45977675E-02 

thia fonaat ara raad by aaln 

1110 

4.02752461E-03 

2.S5564090E-02 

prograa ^DPUSS. 

1120 

4.4^730893E-03 

6.006931P4E-02 

1130 

4«11047b4lE-03 

2.4732402BE-02 


1140 

4.11022425E-03 

2.427971O9E-02 


1150 

4,0y55<»2<»2t-03 

2.41744*»b5E-02 


1160 

4.11047641E-03 

2.47324C28E-02 


1170 

5.52620267E-03 

6.65014F05E-02 


U80 

0« 

2.78221^02E-07 


1190 

0. 

-7.6S795I-63E-0B 


1200 

0. 

-4.r.l2<.Vlf 7E-0A 


1210 

0. 

-4.11331311E-08 


1220 

0. 

-7,68795863E-0a 


1230 

0. 

2.91851169E-07 


1240 

0. 

-7.64225394E-08 


1250 

0. 

-3.50210567E-08 


1260 

0. 

-4.01249172E-08 


1270 

0. 

-7.64225394E-08 


1280 

0. 

2.79337403E-07 


1290 

o« 

-4.43645352E-0R 


1300 

0. 

-4.1133131 lE-08 


1310 

0. 

-3.50210567E-09 


1320 

0. 

-4.43645347E-08 


1330 

0« 

2.47604891E-07 


9999 

1010 

103 99 11 

6 4 4 3 

U 0 1 5.0100000E 00 

1020 

5.l:337535E-03 

6.4b738438E-02 


1030 

4*02752461f-C3 

2.8?56*C90E-02 


1040 

4,0-l00r-39E-v‘3 

2.‘»5977b75E-02 


1050 

4.11022425E-03 

2.427f 7199E-02 


.1060 

4,02752461E-03 

2.65564090E-02 


1070 

5.1O410132E-03 

6.47167024E-02 


1080 

4.02752461E-03 

2.F5564090E-02 


1090 

4.095542W2E-03 

2.41744465E-02 


1100 

4«0<»l0003QE-03 

2.45977675E-02 


1110 

4.02752461E-03 

2.85564U90E-02 


1120 

5.13337535E-03 

6.<»673843aE-02 


1130 

4.11D4764»1£-33 

2.47324n28E-02 


1140 

4.11G22425E-03 

2.42747l9bE-02 


1150 

4.09554242E-03 

2.41744465E-02 
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1160 

4.11047641E-03 

1170 

5.52620267E-03 

1180 

0, 

1190 

0. 

1200 

0. 

1210 

0« 

1220 

0. 

1230 

0. 

1240 

0. 

1250 

0. 

1260 

0. 

1270 

0. 

1280 

0, 

1290 

0. 

1300 

0. 

1310 

0. 

1320 

C« 

1330 

0* 

9999 


1010 

105 99 11 

1020 

5,6r.O6370fcE-03 

1030 

4.02752461E-03 

1040 

4,04.1U0039E-03 

1050 

4.11C-22925E-03 

1060 

4,027524dlE-O3 

1070 

5.5"»136303E-03 

1060 

4.02752961E-03 

1090 

4.095542<.2E-03 

1100 

4.04100039E-03 

1110 

4.02752461E-G3 

1120 

5.-6C063706E-03 

1130 

4«11047641E-Ci3 

1140 

4.11022925E-03 

1150 

4.0O554242E-03 

1160 

4.11047641E-03 

1170 

5.52620267E-03 

1180 

0. 

1190 

0. 

1200 

0. 

1210 

0. 

1220 

C. 

1230 

0« 

1240 

0, 

1250 

0. 

1260 

C. 

1270 

0. 

1280 

0. 

1290 

0. 

1300 

0, 

1310 

0. 

1320 

0. 

1330 

0. 


2.<*7324O2flE-02 
6.650l4ftC5E-02 
2*66748273E-07 
-7. I4^ooft37t»0fl 
-3.7e89377qE-0e 
-4.01741816E-0« 
-7.14466637E-08 
2.7ft815033E-07 
-7.10157977E-08 
-3.45019719E-08 
-3.78893779E-08 
-7.10157977E-08 
2.67790184E-07 
-4,32576RCOE-08 
-4,0l74l6l8E-0fl 
-3.45C19715E-03 
-4.32578eOOE-08 

2.46929737E-07 

6 4 4, 3 C 

6.70<»98572E-02 
2.85564090E-02 
2.45977675E-02 
2.42747199E-02 
2,85564Pe0E-02 
6.70927l4»8E-02 
2*65564090E-<''2 
2.41749^.65E-02 
2.45977675E-02 
2.e5564C90E-02 
6.7(>49e572E-C2 
2.47324C29E-02 
2.4274719OE-02 
2.41744465E-02 
2.47324( 28E-n2 
6.65014PC5E-02 
2.5691C2e0E-07 
-6.69071749E-08 
-3.5964C&77E-08 
-3.93Z34920E-08 
-6.69071749E-08 
2.6772S5RIE-07 
-6.6^9£77ClE-0e 
-3*401811‘.lE-0e 
-3.596^0877E-08 
-6.6«.9b77OlE-O0 
2.578R9oe0E-07 
-4.228n7638E-0fl 
-3,93234912E-0b 
-3.40U1141E-08 
-4,22H07638C-08 
2.46326C14E-07 


PAGE 2 
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9999 


1010 

107 9Q 11 

1020 

4.3n84l357E-03 

1030 

4.02752461E-03 

1040 

4«04I00039E-03 

1050 

4.11022425E-03 

1060 

4.02752461E-03 

1070 

4.35913954E-03 

1080 

4.02752461E-C3 

1090 

4.09554242E-03 

1100 

4.04100039C-03 

1110 

4.02752461E-03 

1120 

4,35-c«4l357E-03 

1130 

4,ll04764iE-n3 

1140 

4,H022425E-03 

1150 

4,09554242E-03 

1160 

4«1 104764 IE-03 

1170 

5.52620267E-03 

1180 

0* 

1190 

0. 

1200 

0. 

1210 

0. 

1220 

0. 

1230 

0. 

1240 

0. 

1250 

0. 

1260 

0. 

1270 

0. 

1280 

0. 

1290 

0. 

1300 

0. 

1310 

0. 

1320 

Op 

1330 

0. 

9999 


1010 

109 90 11 

1020 

4,46730893E-03 

1030 

4.02752461E-03 

1040 

4.04100P39E-03 

1050 

4.11022425E-03 

1060 

4.02752461E-03 

1070 

4,43e034e4E-03 

1080 

4,027524tlE-n3 

1090 

4.09554242E-03 

1100 

4.04100P39E-03 

1110 

4*0275246lE-03 

1120 

4*46730P93E-03 

1130 

4.11047641E-03 

1140 

4.11022425E-'J3 

1150 

4p0o554242E-03 

1160 

4.11D4764,1£.03 

1170 

6.43932709E-03 


5*e6463«32E-03 
2.89564CQ0E-02 
2.45977675E-02 
2.<»27<r7l9<»E-02 
2.8556A090E-02 
5.86892012E-02 
2.65564C90E-02 
2p^17<t4^65E-02 
2.A5977675E-02 
2.85564090E-02 
5.8O463432E-02 
2.47324028E-02 
2.42747199E-02 
2.4l7444,t5E-0Z 
2.473240I8E-02 
6.650148C5E-02 
2.88433131E-07 
>e.l63S0ll0E-08 
-4.21016915E-08 
-4.’95fi37fc5E-0b 
-e.lP380l0lE-08 
3.03552-.O3E-07 
-6.13577U lE-08 
-3.544409CBE-0f 
-4,2I016915E>08 
-B,l3577lMC-0« 
2.89615fe4lE-07 
-4.53214213E-0P 
-4.I0583790E-06 
-3.54440903E-08 
-4.53214213E-08 
2.4aieiC17E«0*» 

6 4 4 3 0 

6.00693164E-02 
2.8556409OE-O2 
2.45977675E-02 
2.42747199E-02 
2.85564090E-02 
6.0U217fc5E-02 
2.65564C90E-02 
2.41744465E-02 
2.4f077675E-02 
2.8556409OE-Or 
6.0C693184E-0^ 
2.47324028E-02 
2. 427471991-02 
2«417444#.$E-02 
2.47324023E-02 
6.77328332E-02 


0 


0 


PAGE 3 
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1 5.0100000E 00 
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PAGE 


1180 

0. 

2.77P00072E-07 

1190 

0, 

-7,72384fl05E-00 

1200 

0. 

-<».05795fr24E-0b 

1210 

0* 

-3.65«56P66E-O0 

1220 

0. 

-7.72384pr5E-nfl 

1230 

0. 

2.9l545^03E-07 

1240 

0. 

-7.6P0962hOE-08 

1250 

0. 

-3.28606577E-08 

1260 

0* 

-4.05705633E-n8 

1270 

0. 

-7,660962POE-08 

1280 

0. 

2.788<»70«.CE-07 

1290 

0. 

1627750 IE-08 

1300 

0. 

-3.fc5956P66E-08 

1310 

0. 

-3,266f)6577E-n6 

1320 

0. 

-4,i6277<,97E-03 

1330 

0. 

2,32330498E-07 

9999 




ORIGINAL PAGE tS 
OF POOR QUALITY 


/-39 


